runtime-objekterstellung + event crasht immer :/

[shuugo]

ich hoff mir kann jemand helfen

wenn ich zur laufzeit ein objekt erstelle (in dem fall ein TImage) und ihm ein OnClick event zuweisen will ..

Delphi-Quellcode:

            Image:=TImage.Create(Fighting);
            try
              with Image do
              begin
                Parent:=self;
                Name:= 'User' + inttostr(j) + 'NameBubble';
                Tag:=j;
                Visible := true;
                AutoSize := true;
                Transparent := true;
                OnClick:= ImageClick;
              end;
            except
              Image.Free;
            end;

und später mit der ImageClick prozedur ein anderes bild verschwinden lassen will (in dem fall das pic mit dem namen UserXNameBubble und dem selben tag als X wie das angeklickte pic)..

Delphi-Quellcode:

procedure TFighting.ImageClick(Sender: TObject);
begin
    with Sender as TImage do begin
         ChatWindow.Lines.Add(inttostr(Tag) + ' ' + Name);
         ChatWindow.Lines.Add('User' + inttostr(Tag) + 'NameBubble');
         (FindComponent('User' + inttostr(Tag) + 'NameBubble') as TImage).Visible := false;
    end;
end;

bekomm ich immer eine zugriffsverletzung.. theoretisch müsste es ja so gehen, da die komponente, die angeklickt wird auch eine dazugehörige namebubble hat und in derselben form steckt. werd noch verrückt, ich find einfach nich den fehler