Eigene Komponente

[Pseudemys Nelsoni]

hoi,

Kann mir jemand sagen wie ich folgende "komponente" erstelle?

also die kompo soll nur(!) eine procedure enthalten (klar nicht viel) aber da ich noch nie ne kompo gemacht habe möchte ich das als test nehmen...

und zwar folgende procedure:

Delphi-Quellcode:

procedure GETIMG(IMGL: TImageList; a: integer; IMG: TImage);
var bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  Try
    if IMGL.GetBitmap(a, bmp) then
    IMG.Picture.Assign(bmp);
  finally
    bmp.Free
  end;
end;

aufrufen tu ich sie mit:

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  GETIMG(imagelist1, 0, image1);
end;

also könnt ich eine kompo machen die die 1. procedure enthält, so das ich für jedes form nur die kompo auf die form schieben brauch statt den code?

danke =)

gruss silent