أين الخطأ 2

[chamsderreche]

السلام عليكم،
أين الخطأ في هذا الكود

PHP كود :

procedure TForm1.FormCreate(Sender: TObject);
var
c:integer;
begin
c:=0;
for c:=1 to 80000
c:=c+1;
showmessage(inttostr(c));
end; 


مدة التمرين يوم واحد والله ولي التوفيق