RadioGroup, выделение, последующие действия

case RadioGroup1.ItemIndex of
   -1:;//ничего не выбрано
   0:;// выбран первый пункт
   1:;// выбран второй пункт
...
end;

RadioGroup.itemindex //--выдает это значение
 
 
//и где нибудь  в таймере пишешь :
 
case RadioGroup.itemindex of
0: begin ...... end;
1: begin ...... end;
n: begin ...... end;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a,b,q,count,summa,E,x,s,z,w:real;
  p,l,m,c:string;
  i,N:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8, ',']) then
Key:=#0;
end;
 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8]) then
Key:=#0;
end;
 
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8, #13, ',']) then
Key:=#0;
keypreview:=true;
if (Key = #13) then Button1.Click;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=1;
b:=2;
s:=0;
q:=1;
count:=0;
summa:=0;
p:=edit1.Text;
l:=edit2.Text;
m:=edit3.Text;
x:=strtofloat(p);
N:=strtoint(l);
E:=strtofloat(m);
if x>=-1 and x<=1 then
begin
for i:=1 to N do
        begin
            s:=b;
            z:=a/b*exp(s*ln(x));
            if abs(z)>E then
                begin
                    summa:=summa+z;
                    count:=count+1;
                end;
            q:=q+z;
            a:=a+2;
            b:=b+2;
        end;
w:=1/sqrt(1+x);
c:=floattostrF(summa,ffgeneral,5,2);
 
if RadioGroup1.ItemIndex=0 then
  begin
    label9.Caption:='';
    label7.Caption:=floattostrF(w,ffgeneral,5,2);
    label5.Caption:=floattostrF(q,ffgeneral,5,2);
    label11.Caption:=floattostrF(summa,ffgeneral,5,2);
  end;
if RadioGroup1.ItemIndex=1 then
  begin
    label7.Caption:=floattostrF(w,ffgeneral,5,2);
    label5.Caption:=floattostrF(q,ffgeneral,5,2);
    label11.Caption:=floattostrF(summa,ffgeneral,5,2);
    label9.caption:=floattostrF(count,ffgeneral,5,2);
  end
 
else
ShowMessage('×èñëî õ äîëæíî ëåæàòü â ãðàíèöàõ [-1;1]')
 
end;
end.

if abs(z)>E then