Delphi заготовки

procedure TForm1.Button2Click(Sender: TObject);
   var a,y,dx,Xn,Xk,x:Extended;
   trow:integer;
begin
dx:=00;
    if trystrtofloat(edit1.text,xn) and trystrtofloat(edit2.text,xk) and trystrtofloat(edit3.text,dx) and (dx>0) and trystrtofloat(edit4.text,a)  then begin // проверяем условие
    x:=xn;
    form1.StringGrid1.Cells[0,0]:='Значения X';
    form1.StringGrid1.Cells[1,0]:='Значения Y';
    form1.StringGrid1.RowCount:=round((xk-xn)/dx)+1;
    form1.Series1.Clear;
    form1.Series2.Clear;
    trow:=1;
      ... Читать дальше »