Курсовая работа: Метод наискорейшего спуска

SwapBuffers(DC);

Label2.Caption:=FloatToStr(zlm);

end;

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if(Button=mbleft) then begin

radiobutton1.Checked:=true;

end;

end;

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

radiobutton1.Checked:=false;

end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);

begin

rt:=0;

verx:=0;

if radiobutton1.Checked=true then begin

rt:=x- xmaus;

verx:=y-ymaus;

refresh;

end;

xmaus:=x;

ymaus:=y;

end;

procedure TForm1.Button2Click(Sender: TObject);

var