uses Windows, Messages;
var
hWnd, Pos: Cardinal;
Str: PChar = ' Estamos probando como funciona el assembler'#13+
'en Delphi y como no tenemos ni idea, no sabemos'#13+
'que sucederà .'#13+
'Bueno, no tenemos ni idea de Delphi,'#13+
'en ensamblador , algo si sabemos ,es el primer len-'#13+
'guaje de programación que nos pusimos a intentar '#13+
'aprender o debí escribir aprehender............'#13+
'¿ End ?';
begin
Pos := 0;
WinExec('notepad.exe', SW_SHOW);
hWnd := FindWindowEx(FindWindow('Notepad', nil), 0, 'Edit', nil);
while Str[Pos] <> #0 do
begin
SendMessage(hWnd, WM_CHAR, Integer(Str[Pos]), 0);
Sleep(100);
Inc(Pos);
end;
end.