Var St:string;
i:integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
St:='Delphipage'; //Choix du texte
i:=0; //Initialise la variable
Timer1.Interval:=500; //Intervalle du timer en ms
Label1.Caption:=''; //Efface le contenu du label
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Inc(i); //Incrémente i
Label1.Caption:=Label1.Caption+St[i]; //Affiche dans le label
if i= Length(St)+1 then Timer1.Enabled:=False; //Arrete si c'est la fin du texte
end;