[Function's & Procedure's] Wiederholender Quelltext

[Angel4585]

was willst du eigentlich speichern? Das Bild oder den Namen der Imagekomponente?
Für den Namen:

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.Name, dateiname); 
  end; 
end;

Bild weis ich leider nicht, da musst du vielleicht mal die Forensuche bemühen