RadioGroup. Методы вычисления определенных интегралов

[Стася]

Код:

unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm11 = class(TForm)
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit8: TEdit;
    Label5: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

{$R *.dfm}


function MethodPR(x:real):real;
begin
  MethodPR:=x*x;
end;


procedure TForm11.Button1Click(Sender: TObject);
Var i,n:integer;
    s,dx,a,b:real;
begin
a:=strtofloat(edit6.Text);
b:=strtofloat(edit7.Text);
n:=strtofloat(edit8.text);
dx:=(b-a)/n;
case RadioGroup1.ItemIndex of

0:   
begin
  for i := 1 to n do
    s:=dx*(s+MethodPR(a+dx*(i-1)));
end;

1:
begin
  for i := 1 to n do
    s:=dx*(s+MethodPR(a+dx*i));
end;

2:
begin
  for i := 1 to n do
    s:=dx*(s+MethodPR(a+dx*(i-0.5)));
end;

3:
begin
 for i := 1 to n do
   s:=0.5*dx*(s+MethodPR(a+dx*(i-1))+MethodPR(a+dx*i));
end;

4:
begin
  for i := 1 to n do
  s:=(dx*(s+dx*(s+MethodPR(a+dx*(i-1))+4*MethodPR(a+dx*(i-0.5))+MethodPR(a+dx*i))))/6;
end;
end;

end;

end.

Мне надо чтобы значения s, полученные для каждого метода, были в эдитах. Как это сделать.

[Sla]

а массивы еще никто не отменял

[Стася]

А зачем сюда массив?

[Tuborg]

Наверное что нибудь вроде

Код:

str: String;
s: float

fprintf(str,"%f",s);
edit1.text:=str;