Enviar texto a la ventana abierta
 

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;

He probado el código que publicaste y lo único que hace es simular la pulsación de teclas sobre el componente que tiene el foco, si se trata de un TEdit o un TMemo, entonces aparece en el componente el texto que estás enviando.

¿A qué te refieres cuando dices que llega con letras desordenadas?

Saludos

Pues que si escribo hola en el edit4 y le doy al botón enviar texto, el texto me aparecería en el notepad en este orden "ohal" por ejemplo.

lo que estoy intentando hacer es un programa que escriba en otra aplicación, si alguien me pudiera encontrar unas source que funciones le estaría muy agradecido. Gracias

No especificas mucho, tu código es algo redundante, no se si utilizar keybd_event es lo correcto (Aquí tienes un ejemplo muy básico)...
O no se si simplemente quieres asignarle texto a una ventana externa de tu aplicación (Ejemplo: CallExternal)