Delphi 7, БД в Access Опции

[Динара]

procedure TSved_o_knigah.BitBtn9Click(Sender: TObject);
var LocOpts: TLocateOptions;
begin
LocOpts:=[];
if CheckBox1.Checked then LocOpts:=LocOpts+[LoPartialKey];
case combobox1.ItemIndex of
0:DataModule2.Sved_o_knigah1.Locate('nazvanie',edi t1.Text,LocOpts);
1:DataModule2.Sved_o_knigah1.locate('avtor_name',e dit1.Text,[loPartialKey]);

end;
end;
подскажите пожалуйста как правильно написать эту процедуру, т. к. имеется таблица avtor из которой выбирается avtor_name