Na, próbálkoztam így:
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  epitmenu: TMainMenu;
  menupont: TMenuItem;
begin
if epitesgomb.aktkepe<>epitesgomb.kepe0 then
     begin
      epitesgomb.aktkepe:=epitesgomb.kepe0;
      epitmenu:=TMainMenu.Create(self);
      menupont:=TMenuItem.Create(epitmenu);
    menupont.Caption:='Felirat';
      epitmenu.items.Add(menupont);
     end;
end;
és erre a képernyő tetején létrehoz egy, a képernyő szélességével megegyező szélességű fehér téglalapot, benne a felirattal...
Hogyan lehet ezt a gomb koordinátáihoz igazítani és megfelelő szélességűre?