[AlexSku]

вот примерная рыба:

Код:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    aX, aY: array[1..10] of Real;
    function funY(x: Real): Real;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.funY(x: Real): Real;
begin
  // Result:= ...
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  x0: Real = 0.0;
  h: Real = 0.1;
var
  i: Integer;
begin
  for i:= 1 to 10 do
  begin
    aX[i]:= x0 + (i-1)*h;
    aY[i]:= funY(aX[i]);
  end;
end;