procedure TFClass.AddMenuItem;
var Item:TMenuItem;i:integer;str:string;
begin
for i:=1 to count do begin
  Item:=TMenuItem.Create(MainMenu1);
  Item.Name:='Name'+IntToStr(i);
  Item.Caption:=str;
  item.Onclick:=..............
  MenuOpenRecentFile.Add(Item);
end;
end;

procedure TFAsm.AddFilePathMenu;
var Item:TMenuItem;i,count,c:integer;Ini:TIniFile;str:string;
begin
strExePath:= ExtractFilePath(ParamStr(0));
Ini := TIniFile.Create(strExePath + 'SettingsAsm.ini');
c:=Ini.ReadInteger('RecentFiles','Count',0);
if c<=10 then count:=c
else count=10;
for i:=1 to count do begin
  str:=Ini.ReadString('RecentFiles','File'+IntToStr(i),'');
  Item:=TMenuItem.Create(MainMenu1);
  Item.Name:='M'+IntToStr(i);
  Item.Caption:=str;
  item.Onclick:=
  MenuOpenRecentFile.Add(Item);
end;
Ini.Free;
end;