Код:
procedure TForm1.ItemClick(Sender: TObject);
begin
AssignFile(f,'D:\'+(Sender as TMenuItem).Caption+'.test');
Rewrite(f);
Write(...);
CloseFile(...)
end;
Admin: Пользуемся тегами, иначе санкции!
тут фишка в том что Sender это просто указатель на объект, но если его привести явно к типу, то становяться доступны его методы и свойства...