[PashaXP]

Если тебе нужно производить эти действия именно в МЕНЮ, то принцип тот же -

Код:

procedure TForm1.N11Click(Sender: TObject);
begin
 Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);
end;