Problema:

Gostaria verificar se o bloco de notas está aberto e, caso esteja, escrever um texto a partir de um programa feito em Delphi. Isto é possível?

Solução:

Sim, isto é possível. O código abaixo escreve o conteúdo de uma variável no Bloco de Notas caso ele esteja aberto no momento do Click em Button1:

procedure TForm1.Button1Click(Sender: TObject);
var
  JanelaPrincipal, JanelaFilha: THandle;
  I: integer;
  Texto: string;
begin
  Texto := 'Daniel';
  JanelaPrincipal := FindWindow('Notepad', nil);
  if JanelaPrincipal > 0 then
  begin
    JanelaFilha := FindWindowEx(JanelaPrincipal, 0, 'Edit', nil);
    if JanelaFilha > 0 then
    begin
      for I := 1 to Length(Texto) do
        PostMessage(JanelaFilha, WM_CHAR, Ord(Texto[I]), 0);
    end;
  end;
end;

Observações:

Uma alternativa mais interessante seria abrir o Bloco de Notas caso ele ainda não esteja aberto. Mas vou deixar este problema como exercício de fixação.