[jaimeh]

Pongo el todo el codigo, aunque es una prueba

Código Delphi [-]
var
   s: string;
   i: Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
   //
   s:= Edit1.Text;
   Timer1.Enabled := true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Timer1.Enabled := false;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
   //
   i:= 1;
   Form1.DoubleBuffered := true;
   Label1.Perform(WM_SETREDRAW, 0, 0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 //

   if i <= length(Edit1.Text) then
   begin
     label1.Caption := LeftStr(s, i);
     Inc(i);
   end
   else begin
     s := s + ' ';
     label1.Caption := s;
   end;


end;