Problem mit Komponente entfernen

[made in Germany]

Hi!

Ich komm wieder mal nicht weiter,
ich hoffe ihr könnt mir helfen:


Ich möchte die hier zur Laufzeit erstellte Kompnente wieder entfernen.

Delphi-Quellcode:

var
imgnew:TImage;    
x1,y1,imganz: Integer;


procedure TForm1.Button1Click(Sender: TObject);
   begin
        imgnew:=TImage.Create(self);
        imgnew.Parent:= SDIAppForm;
        imgnew.Show;
        imgnew.Canvas.Brush.Color:=clred;
        imgnew.PopupMenu:=Popupmenu1;
        imgnew.Canvas.Rectangle(x1,y1,x1+100,y1+100);

        imgnew.Name:='Image'+IntToStr(imganz);              // Namen ändern
        imganz:=imganz+1;

        x1:=x1+5;                   //neue Koordinaten
        y1:=y1+5;
   end;




procedure TForm1.lschen1Click(Sender: TObject);
begin

TImage().Free;  // Hier sollte nacher die ausgewählte Kompnente irgendwie wieder entfernt werden

end;

Das Image, das das Popupmenü geöffnet hat, soll entfernt werden.

Zumindest hab ich mir das so vorgestellt