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 FormShow(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; adim:integer; implementation {$R *.dfm} //Atakan E tarafından yazıldı. Fazlası için ---> Atakan E. | "aercys" | 2007 procedure TForm1.Timer1Timer(Sender: TObject); begin adim:=adim+1; case adim of 1:label1.Caption:=label1.Caption+'A'; 2:label1.Caption:=label1.Caption+'t'; 3:label1.Caption:=label1.Caption+'a'; 4:label1.Caption:=label1.Caption+'k'; 5:label1.Caption:=label1.Caption+'a'; 6:label1.Caption:=label1.Caption+'n'; 7:label1.Caption:=label1.Caption+' '; 8:label1.Caption:=label1.Caption+'E'; 9:label1.Caption:=label1.Caption+' '; 10:label1.Caption:=label1.Caption+'T'; 12:label1.Caption:=label1.Caption+'a'; 13:label1.Caption:=label1.Caption+'r'; 14:label1.Caption:=label1.Caption+'a'; 15:label1.Caption:=label1.Caption+'f'; 16:label1.Caption:=label1.Caption+'ı'; 17:label1.Caption:=label1.Caption+'n'; 18:label1.Caption:=label1.Caption+'d'; 19:label1.Caption:=label1.Caption+'a'; 20:label1.Caption:=label1.Caption+'n'; 21:label1.Caption:=label1.Caption+' '; 22:label1.Caption:=label1.Caption+'Y'; 23:label1.Caption:=label1.Caption+'a'; 24:label1.Caption:=label1.Caption+'z'; 25:label1.Caption:=label1.Caption+'ı'; 26:label1.Caption:=label1.Caption+'l'; 27:label1.Caption:=label1.Caption+'d'; 28:label1.Caption:=label1.Caption+'ı'; 29:label1.Caption:=label1.Caption+'.'; 30:label1.Caption:=label1.Caption+'.'; 31:label1.Caption:=label1.Caption+'.'; end; end; procedure TForm1.FormShow(Sender: TObject); begin adim:=0; end; end.