Code verkürzen?

[Pseudemys Nelsoni]

Moin,

habe ca 15 buttons auf meinem form1 die bei "OnMouseDown" und "OnMouseUp" das Bild wechseln. für diese Kleinigkeit hat jeder button z.b für das "OnMouseDown" sonen Code:

Delphi-Quellcode:

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    if imagelist2.getbitmap(6, bmp) then
    image5.picture.assign(bmp)
  finally
    bmp.free;
  end;
end;

und das kommt in jeden button... Der code für die buttons ist immer gleich, bis auf Die Werte "getbitmap(6, bmp)".
da das aber allein NUR für das Bild ist(Code für andere Dinge kommt da auch noch rein)....finde ich das das ziemlich unübersichtlich wird. Könnte man das irgendwie mit ner function oder so anders machen?

das ich z.b nur eingeben brauch "getbitmap(6);" so z.B ?

danke

gruss mario