popup menu erzeugen

[Greenie]

Guten Morgen zusammen..

ich bin ja noch relativ neu hier..deswege verzeiht mir vielleicht meine doofe frage..ich hab zwar schon über die suche was versucht rauszufinden, hab aber nix gscheites gefunden.

also ich möchte auf einer listbox ein popup menu erzeugen, beim rechtsklick sollte die zeile automatisch selektiert werden. Als Menupunkt möchte ich Löschen hinzufügen. Die jeweiligen Komponenten werden dynamisch erzeugt. Ich weiß au net, wo ich was hinschreiben muss.. Ich komm in dem Bereich auch mit der Delphi hilfe net wirklich zurecht..also, ich wär euch sehr verbunden..

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);

{...}

 pumLoeschen := TPopUpMenu.Create(lbDateiListe);
       with pumLoeschen do
       begin
            parent := lbDateiListe;
       end;

       lbDateiListe := TListBox.Create(self);
        with lbDateiListe do
        begin
             parent := self;
             visible := false;
             Anchors := [akLeft,akTop,akRight,akBottom];
             top := 10;
             left := 10;
             width := Form1.Width - 33;
             height := Form1.Height - 130;
             Perform(LB_SetHorizontalExtent, 1000, Longint(0));
             PopUpMenu := pumLoeschen;
             OnMouseDown := PopUpMenuMouseDown;
        end;
{...}
end;
{...}
procedure TForm1.PopUpMenuMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
var
      mi : TMenuItem;

begin
         mi:=TMenuItem.Create(pumLoeschen);
         mi.caption:='Loeschen';
         mi.OnClick := DateiLoeschenClick;       //habe ich noch nicht geschrieben
end;
{...}
end.

Vielen Dank schon mal für eure hilfe..