Enviar texto a la ventana abierta

[Mr.Vaka]

hola amigos, tengo un código para mandar texto a la pantalla abierta de windows, el problema es que el texto que mando para que salga en la pantalla abierta llega con las letras desordenadas. La pantalla abierta podría ser por ejemplo un notepad o un bloc de notas, haber si alguien me puede ayudar.

Gracias.

Código:

Código Delphi [-]
   procedure TForm1.Button49Click(Sender: TObject);
  var
  i: Byte;
  begin
  for i := 1 to Length( edit4.text ) do  Keybd_Event( Ord( edit4.text [ i ] ), 0, 0, 0 );
  end;
  
  procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
  begin
  if Key in ['a'..'z'] then  Key := UpCase(Key);
  end;