Memo1 - Znak po znaku...

Mam napisany tekst w Memo( kilka linijek). Jak zrobić aby ten tekst w Memo pisał się literka po literce???? Kiedys gdzies to widzialem na tym forum. Ale to nie działało zbyt dobrze :) Z góry dzięki

odpowiedź opisowa: Canvas, sleep/timer, textout, myślenie :-)

Wystarczy trochę pomyśleć i będzie działać :-)

Jak znak po znaku??
Ma to przepisać?

Odpowiedzcie mu jakos normalnie bo jestem bardzo ciekawy jak to bedzie wygladalo to oczym mowi.

Program po naciśnięciu Button1 przepisuje zawartość Memo1 do Memo2 literka po literce w tempie takim jaki dasz interval w Timer1.

//w deklaracji klasy formy
private
Typing :Boolean;
i : integer;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); //uruchomienie pisania
begin
Memo2.Lines.Clear;
Typing:=True;
i:=1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Typing:=False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Typing and (i