[Function's & Procedure's] Wiederholender Quelltext

[mOzZzI]

Also, das Problem ist das

Delphi-Quellcode:

function ZeigerImage(var Imagex:TImage):Boolean;
begin
  if ptInRect( Imagex.BoundsRect, pt ) then
  begin
   Imagex.Canvas.Draw(0,0, FileIcon(Dateiname));
   ini.WriteString('BUTTONS', Imagex, dateiname);
  end;
end;

nur ein Gedanke war, aber nicht funktioniert...

Und wie ich das dann machen kann...

Also das man dann Imagex mit Image1...20 ersetzen kann... bloß wie?