[lmikle]

А я не понял в чем проблема? В создании полей? Так возьми StringGrid и ничего создавать не надо. А код там элементаный будет.

Код:

procedure TForm1.Button1Click(Sender : TObject);
var
  C : Integer;
begin
  C := StrToInt(Edit1.Text);
  If C < 2  
    Then ShowMessage('Значение должно быть > 1') 
    Else StringGrid1.RowCount := C + 1; // +1 - заголовок
end;

procedure TForm1.Button2Click(Sender : TObject);
var
  Xmin, Xmax, Ymin, Ymax : Integer;
  I : Integer;
  C : Integer;
  dX, dY : Extended;
begin
  Xmin := StrToInt(StringGrid1.Cells[0,1]);
  Xmax := Xmin;
  Ymin := StrToInt(StringGrid1.Cells[1,1]);
  Ymax := Ymin;

  For I := 2 To StringGrid1.RowCount-1 Do
    Begin
      C := StrToInt(StringGrid1.Cells[0,I]);
      If C < Xmin Then Xmin := C;
      If C > Xmax Then Xmax := C;

      C := StrToInt(StringGrid1.Cells[1,I]);
      If C < Ymin Then Ymin := C;
      If C > Ymax Then Ymax := C;
   End;

  dX := (Xmax - Xmin) / (StringGrid1.RowCount-1);
  dY := (Ymax - Ymin) / (StringGrid1.RowCount-1);

end;