Вывод имен индексов на экран

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, CheckLst;
 
type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    RadioGroup1: TRadioGroup;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    CheckListBox1: TCheckListBox;
    CheckListBox2: TCheckListBox;
    Label1: TLabel;
    Label2: TLabel;
    Button7: TButton;
    Button1: TButton;
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure CheckListBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
   private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation     
 
{$R *.dfm}
 uses unit2;
 
 procedure TForm1.RadioGroup1Click(Sender: TObject);
Var i:Integer;
Ima: String;
begin
CASE RadioGroup1.ItemIndex OF
0: begin
    DBGrid1.DataSource:=DataModule2.DataSource1;
    TBL:='vagon';
    DataModule2.Table1.IndexDefs.Update;
    FOR i:=0 TO DataModule2.Table1.IndexDefs.Count-1 DO begin
      Ima:= DataModule2.Table1.IndexDefs[i].Name;
      IF Ima='' THEN Ima :='Primary';
      CheckListBox1.Items.Add(Ima);
    end;
end;
 1: begin
    DBGrid1.DataSource:=DataModule2.DataSource1;
    TBL:='naznach';
    DataModule2.Table2.IndexDefs.Update;
    For i:= 0 TO DataModule2.Table2.IndexDefs.Count-1 DO begin
    Ima:= DataModule2.Table2.IndexDefs [i].Name;
    IF Ima='' THEN Ima:='Primary';
    CheckListBox1.Items.Add(Ima);
    end;
    end;
 2: begin
    DBGrid1.DataSource:=DataModule2.DataSource1;
    TBL:='zavod';
    DataModule2.Table3.IndexDefs.Update;
    For i:= 0 TO DataModule2.Table3.IndexDefs.Count-1 DO begin
    Ima:= DataModule2.Table3.IndexDefs [i].Name;
    IF Ima='' THEN Ima:='Primary';
    CheckListBox1.Items.Add(Ima);
    end;
    end;
end;

var TBL : string;