problem z indexem

Witam.
Chce zrobic pewna aplikacje na zaliczenie do szkoly. Prawie wszysto
zrobilem ale mam pewien problem. Program wyglada tak: sa dwie bazy
danych z dwoma tabelami: dbgrid1 i dbgrid2. W pierwszej wyswietlani sa
klienci warsztatu samochodowego (i ich dane adresowe) w drugiej
pojawiaja sie wykonane uslugi dla danego klienta (jezeli kliknie sie w
odpowiednia pozycje w dbgrid1). Chcialem zrobic jeszcze sortowanie wg
nazwiska, ID i samochodu w dbgrid1 przy pomocy komponentu radiogroup.
Ale gdy klikne odpowiednia pozycje w tym komponencie to wyswietla mi
sie blad ze nie mam utworzonych indexow. Ale ja je utworzylem chyba ze
cos przeoczylem. Tu jest kod tworzenia dbgrid1 wraz z indexami i
utworzenie radiogroup z sortowaniem:

procedure TForm1.TworzTabeleKlientow; 
begin 
 with Table1 do 
  begin 
   DatabaseName:=''; 
   TableName:='klienci'; 
   TableType:=ttParadox; 
   FieldDefs.Add('ID klienta',ftInteger, 0, True); 
   FieldDefs.Add('Nazwisko',ftString,30,True); 
   FieldDefs.Add('Imię',ftString,30,True); 
   FieldDefs.Add('Samochód',ftString,10,True); 
   FieldDefs.Add('Kod pocztowy',ftString,6,False); 
   FieldDefs.Add('Miejscowość',ftString,30,False); 
   FieldDefs.Add('Ulica',ftString,20,False); 
   FieldDefs.Add('Numer domu',ftString,10,False); 
   IndexDefs.Add('','ID klienta',[ixPrimary,ixUnique]); 
   IndexDefs.Add('IndexNazwisko','Nazwisko;Imię',[ixCaseInsensitive]); 
   IndexDefs.Add('IndexSamochod','Samochód',[ixCaseInsensitive]); 
   CreateTable; {utworzenie tabeli bazy danych o powyższej definicji} 
   Open; {otwarcie tabeli bazy danych} 
   Edit; {ustawienie tabeli bazy danych w trybie edycji} 
  end; {with Table1 do} 
end; {procedure TForm1.TworzTabeleKlientow;} 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
RadioGroup1.ItemIndex:=0; 
end; 

procedure TForm1.RadioGroup1Click(Sender: TObject); 
   var 
 IntPom{zmienna pomocnicza}: integer; 
begin 
  IntPom:=RadioGroup1.ItemIndex; 

 Case IntPom of 
   0: Table1.IndexName:=''; 
   1: Table1.IndexName:='IndexNazwisko'; 
   2: Table1.IndexName:='IndexSamochod'; 
  end; {Case IntPom of}