Escrever no Bloco de Notas

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;