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

Form3.Edit1.Text:= FloatToStr(cyf);

end;

procedure TForm3.Butt_MCClick(Sender: TObject);

begin

m:=0;

panel1.Caption:='';

end;

procedure TForm3.Butt_MRClick(Sender: TObject);

begin

edit1.Text:=floattostr(M);

end;

procedure TForm3.Butt_MSClick(Sender: TObject);

begin

M:=strtofloat(edit1.Text);

panel1.Caption:='M';

end;

procedure TForm3.Butt_M_plusClick(Sender: TObject);

begin

panel1.Caption:='M';

M:=M+strtofloat(edit1.Text);

end;

procedure TForm3.Butt_backClick(Sender: TObject);

var

back:string;

begin

back:=edit1.Text;

delete(back,length(back),1);

edit1.Text:=back;

if edit1.Text='' then