Okay, ich hab meinen Fehler gefunden.
Hier mal die überarbeitete Version:
1. Kreisquarder
Code:
procedure TForm1.FormActivate(Sender: TObject);
var Anfang, Ende, J,x,y,I :Integer;
begin
Anfang:= 0;
Ende:= 5;
For J:= 1 to 10 do
begin
y:= (Form1.ClientHeight-50)-J*86;
For I:= 1 to Ende do
begin
x:= I*100;
Canvas.ellipse(x+Anfang,y,x+100+Anfang,y+100);
Sleep(200)
end;
Anfang:= Anfang+50;
Ende:= Ende-1;
end;
end;
end.