Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
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.
