A zde je samotný kód:

procedure TForm1.Button5Click(Sender: TObject);
var Cnt : integer;
Txt : string;
begin
txt := 'Sem doplňte váš vlastní text, který bude vypisován';
for cnt := 1 to length(txt) do
begin
Edit2.Perform(WM_CHAR, Ord(Txt[Cnt]), 0);
Edit2.Update;
if Cnt < Length(txt) then
begin
Sleep(50);
Application.ProcessMessages;
end;
end;
end;