Methoden im constructor

[raptascha]

Hallo!

Also ich habe folgendes Problem:
Ich habe in einer Klasse(geerbt von TImage) einen constructor erstellt. In ihm will ich jetzt das OnClick-Ereignis mit meiner procedure anzeigeText gleichsetzten.
Ih will also , dass immer wenn auf mein Objekt geklickt wird, die procedure anzeigeText ausgeführt wird.
Ich hab keine Plan und suche schon seid Stunden, allerdings ist die Delphi hilfe nicht sonderlich brauchbar.

Hier der Quelltext der Klasse:

Delphi-Quellcode:

unit uTGegenstaende;

interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ExtCtrls, StdCtrls, uTPerson;
type TGegenstand=class(TImage)
   constructor create(Owner: TWinControl; aktName: String; aktxPos,aktyPos:Integer);
   public
  Name: String;
  Bild: TPicture;
  xPos, yPos: Integer;
  Hilfsvar:TGegenstand;
  //procedure anzeigeText; override;
end;

implementation
 constructor TGegenstand.create(Owner: TWinControl; aktName: String; aktxPos,aktyPos:Integer);
  begin
  inherited create(Owner); //ruft TImage auf
  parent:=Owner;
  top:=aktyPos;
  left:=aktxPos;
  Bild:=Picture.Create;
  Bild.LoadFromFile(aktName);
  Picture:=Bild;
  Transparent:=true;
  AutoSize:= True;
  //Hilfsvar.create;
  OnMouseMove:=anzeigeText;

  end;


{
procedure TGegenstand.OnMouseMove;
begin

anzeigeText;
end;


procedure TGegenstand.anzeigeText(Sender:TObject);
begin
inherited anzeigeText;
begin
   //Owner.lblKuecheText.caption:='Ein Glas mit schwebenden Augen';
end;
end;
}

end.

ICH HOFFE, IHR KÖNNT MIR HELFEN!!!
DANKE
GRuß,Natascha