[M.A.D.M.A.N.]

Код:

  for i := 1 to Length(s) do
  begin
    keybd_event(ord(s[i]),0, 0, 0); 
    sleep(400); 
    keybd_event(ord(s[i]),0, KEYEVENTF_KEYUP, 0);
  end;