Wie muss dieser Code lauten?

[mkinzler]

Wenn du die Shapes ernfach auf der Form abegelgt hat und diese Shape1, Shape2 usw heißen müßte es so gehen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
  for i:=1 to 10 do Form.FindComponenent( Shape+IntToStr(i)).Enabled:=false;
end;