a ثم يتغير بواسطة timer حتى يصل الى zzzzz

[me_delphi]

هدا مثال بسيط أخي الكريم

PHP كود :

var
  i:integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=97;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if i >121 then timer1.Enabled:=false;
memo1.Lines.Add(chr(i));
i:=i+1;
end;