Курсовая работа: Створення програми-органайзера

oper:=4;

f:=0;

end;

end;

procedure TForm3.Butt_mnojClick(Sender: TObject);

begin

if f = 0

then oper:= 3

else begin

DoOper;

oper:=3;

f:=0;

end;

end;

procedure TForm3.Butt_minusClick(Sender: TObject);

begin

if f = 0

then oper:= 2

else begin

DoOper;

oper:=2;

f:=0;

end;

end;

procedure TForm3.Butt_plusClick(Sender: TObject);

begin

if f = 0

then oper:= 1

else begin