Planeten drehen

[Noob1990]

also brauch ich quasi nur

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
var 
i,x:integer; 
dateiname:string; 
begin 

for i:=1 to 240 do 
  begin 
   dateiname:='p'+ inttostr(i); 
   planet[i]:= Tpicture.Create; 
   planet[i].loadfromfile('Planet1/' + dateiname +'.jpg') ; 

  end; 




end;

durch

Delphi-Quellcode:

var 
 dateiname, BaseDir: string;
 i:integer; 
begin 
 for i:=1 to 240 do
 begin 
  dateiname:='p'+ inttostr(i);
  BaseDir := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))); 

  planet[i].loadfromfile(BaseDir + 'Planet1\' + dateiname + '.jpg');
 end
end;

zu ersetzen und dann funktionier das also dann auch die schlleife die in TImage1 onclick stehent?