Jak zrobić efekt pisania tekstu w memo?

[Ecosse]

Witam. Jest mi koniecznie potrzebna informacja jak zrobić efekt pisania tekstu w memo. Próbowałem z sleep ale nie działa. Chodzi mi dokładnie o to że po wciśnięciu buttona w memo co 200 milisekund będzie pojawiała się kolejna literka do tekstu aż utworzy całe zdanie. Proszę o pomoc.

[Vandervir]

zrob pętlę która będzie wypisywała za każdym razem jeden znak więcej z danego stringa.

[D.F.]

procedure TForm1.Button1Click(Sender: TObject);
var
  I : Integer;
  S : String;
begin
  S := 'Witaj w moim programie!';
  for I := 1 to Length(S) do
  begin
    Memo1.Text := Memo1.Text + S[I];
    Sleep(200);
    Application.ProcessMessages();
  end;
end;