1:
2:
3:

LastOpen := LetzteDateien1.Items[0].Caption;
Delete(LastOpen,1,1);
Table1.TableName := LastOpen;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

type
  TForm1 = class(TForm)
    { ... }
  private
    OnDynMenuClick(Sender: TObject);
    BuildMenu;
  end;

procedure TForm1.OnDynMenuClick(Sender: TObject);
var
  szFilename : string;
begin
  szFilename := (Sender as TMenuItem).Caption;
  ShowMessage(szFileName);
end;

procedure TForm1.BuildMenu;
var
  mii : TMenuItem
begin
  mii := TMenuItem.Create(LetzteDateien1);

  mii.Caption := 'IrgendEineDatei.file';
  mii.OnClick := OnDynMenuClick;

  LetzteDateien1.Add(mii);
end;					

1:

Items.IndexOf					

1:

Items.Delete					

1:

S := (Sender as TMenuItem).Caption					

1:

S := (Sender as TMenuItem).Caption					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

IDR_MENU1 MENU DISCARDABLE 
BEGIN
    POPUP "bla"
    BEGIN
        POPUP "bla"
        BEGIN
            MENUITEM "bla",                         ID_BLA_BLA_BLA
        END
    END
END					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

procedure TForm1.Anrede1Click(Sender: TObject);
 var i,x : Integer;
       s,LastOpen,ExLastOpen : String;
begin
  s := (Sender as TMenuItem).Caption;
  i := 1;
  Repeat
    if s[i] = '&' then
      delete (s,i,1);
    inc (i);
  until i > length(s);
  if (Sender as TMenuItem).Caption = '&Anrede' then
  begin
    for x := 0 to Table1.FieldCount - 1 do
    begin
      if (Table1.Fields[x].FieldName = 'NAME0') then
        S := 'Name0';
      if (Table1.Fields[x].FieldName = 'ANREDE') then
        S := 'Anrede';
    end;
  end;
  Table1.Close;
  Table1.Active := false;
  LastOpen := (Sender as TMenuItem).Caption; <---- //Hier soll er den   angeklickten Text aus dem PopUpMenu,wo die "letzten Dateien" stehen auslesen,aber er liest vom PopUpMenu "Sortieren" aus// 
  ExLastOpen := ChangeFileExt(LastOpen,'.MDX');
  if OpenDialog1.FileName <> '' then
    DBDeleteIndex(OpenDialog1.FileName)
  else
  begin
    if FileExists (ExLastOpen)  then
      DBDeleteIndex(LastOpen);
  end;
  if SaveDialog1.FileName <> '' then
    DBDeleteIndex (SaveDialog1.FileName);
  Table1.Exclusive := true;
  if Form6.edbankname.text <> '' then
    DBDeleteIndex (ExtractFilePath(Form6.edbankname.text)+Form6.edbankname.text+'.dbf');
  Table1.AddIndex ('Index',S,[]);
  Table1.Exclusive := false;
 (Sender as TMenuItem).Checked := True;
  Table1.Exclusive := False;
  for I := 0 to Table1.IndexDefs.Count - 1 do
  if Table1.IndexDefs.Items[I].Fields = S then
    Table1.IndexName := Table1.IndexDefs.Items[I].Name;
  Table1.Active := True;
  Table1.IndexName := 'Index';
  if DBGrid1.Columns[0].FieldName = 'NAME0' then
    DBGrid1.Columns[0].Title.Caption := 'ANREDE';
  Table1.First;					

1:
2:

var
  szLastOpenFile : string = '';					

1:

szLastOpenFile := (Sender as TMenuItem).Caption;