If you want align menu items text to the right, then you may use this little deceit. procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin with MainMenu1 do for i:=0 to Items.Count-1 do Items[i].Caption:=Chr(8)+Items[i].Caption; end;