[AND_REY]

Код писал в текстовике т.к на работе нет Delpi исправте синтаксис если есть ошибки.

Код:

var
 S: String;
 i: Integer;
begin
 Sleep(5000);
 S:= Edit1.Text;
 For i:= 1 To Length(S) Do
  begin
   Application.ProcessMessages;
   keybd_event(Ord(S[i]), 0, 0, 0);.
   keybd_event(Ord(S[i]), 0, KEYEVENTF_KEYUP, 0);
   Sleep(200);
  end;
end;