Menuer

Jeg har på et tidspunkt fået sådan her et script:
procedure SetMenuItemCap(Menu: HMENU; Item: Integer; NewCap: string);
var
  Info: TMenuItemInfo;
begin
  FillChar(Info, SizeOf(Info), #0);
  Info.cbSize := SizeOf(Info);
  Info.fMask := MIIM_TYPE;
  GetMenuItemInfo(Menu, Item, True, Info);
  Info.dwTypeData := PChar(NewCap);
  Info.cch := Length(PChar(Info.dwTypeData));
  SetMenuItemInfo(Menu, Item, True, Info);
end;

procedure TMain.Button1Click(Sender: TObject);
var
  Win, Menu, Edt: HWND;
begin
  //Åbn notesblok, hvis den ikke er det!
  Win := TProg(VProgs.Selected.Data).Handle;

  //Sæt caption
  SetWindowText(Win, PChar('Hejsa notepad!!'));

  //Sæt menu-items
  Menu := GetMenu(Win);
  SetMenuItemCap(Menu, 0, 'Menu1');
  SetMenuItemCap(Menu, 1, 'Menu2');
  SetMenuItemCap(Menu, 2, 'Menu3');
  SetMenuItemCap(Menu, 3, 'Menu4');
  SetMenuItemCap(GetSubMenu(Menu, 0), 0, 'Ny (modificeret)...');
  DrawMenuBar(Win);

  //Skriv tekst...
  //Clean up
  UpdateWindow(Win);
end;

som går ind og ændrer menunavnene i et program, men hvordan kan jeg få afvide om hvad menuens caption allerede er??

(PS: Det jeg havde tænkt mig, var at lave en tropist kopi af en menu i mit eget program, giver gerne flere points (60) hvis der er en der vil lave det for mig) :--))