[Function's & Procedure's] Wiederholender Quelltext

[mOzZzI]

Hallo,
ich habe eine kleine Frage, die lautet so:

Ich frage mittels

Delphi-Quellcode:

begin
if ptInRect( Image1.BoundsRect, pt ) then
  begin
    Image1.Canvas.Draw(0,0, FileIcon(dateiname));
    ini.WriteString('BUTTONS', '1', dateiname);
  end;
end;

ab wo der Mauszeiger sich befindet.
Wobei

Delphi-Quellcode:

var pt: TPoint
begin
  pt:=self.ScreenToClient(Mouse.CursorPos);
end;

ist.
Jetzt wollte ich das in eine Funktion oder Prozedur setzen, da ich 20 Images hab...

Ich hätte gedacht vill so:

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;

Also das man dann Imagex mit Image1...20 ersetzen kann...


Gruß Philipp