procedure TForm1.Button1Click(Sender: TObject);
Var
hHandle : Thandle;
Texto : String ;
I : Integer;
begin
Texto := 'Estamos probando como funciona el assembler'+ #13#10+
'en Delphi y como no tenemos ni idea, no sabemos'+#13#10+
'que sucederà .'+#13#10+
'Bueno, no tenemos ni idea de Delphi,'+#13#10+
'en ensamblador , algo si sabemos ,es el primer len-'+#13#10+
'guaje de programación que nos pusimos a intentar '+#13#10+
'aprender o debí escribir aprehender............'+#13#10+
'¿ End ?' ;
Winexec('notepad.exe',SW_SHOW);
hHandle := FindWindowEx(FindWindow('Notepad',0),0,'Edit',nil);
For I := 0 To Length(Texto) DO
Begin
PostMessage(hHandle,WM_CHAR,ord(Texto[i]),0);
Sleep(100);
End;
end;