unit Unit1;



interface



uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;



type

TForm1 = class(TForm)

Label1: TLabel;

Timer1: TTimer;

procedure Timer1Timer(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;

a:string;

b:string;

implementation



{$R *.dfm}



procedure TForm1.Timer1Timer(Sender: TObject);

begin

a:=a + copy(b,1,1);

delete(b,1,1);

label1.Caption:=a

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

Timer1.Interval:=800;

b:='Laba diena !';

label1.Caption:= '';



end;



end.