719 - Label escrita letra a letra

Tenho uma dica aqui que até é legalzinha...
Ela digita letra por letra...
com certeza pode ser melhorado, mas é só uma dica..
Será utilizado: Um TLabel e um TTimer, sendo que o Caption do Tlabel já esteja definido antes de dar o Create do Form..

---

public

 LetraNum:Integer;

 Frase:String;

 

//No OnCreate do Form:

 Frase := Label1.Caption;

 LetraNum := 0;

 Label1.Caption := '';

 

//No OnTimer do TTimer:

 Label1.Caption := Copy(Frase,1,LetraNum);

 Inc(LetraNum);

  if Label1.Caption = Frase then

  Timer1.Enabled := False;

{Dica enviada por Marcus}