procedure TForm1.Button1Click(Sender: TObject); var sakat,i:integer; begin sakat:=strtoint(edit1.text); label1.Caption:=''; for i:=1 to sakat do label1.Caption :=label1.Caption + 'a'; end; end. nazım demir demirnazim@hotmail.com