[Megabizon]

Может быть так:

Код:

 
::Edit1Change(TObject *Sender) 
{ 
TLocateOptions Opts; 
Opts.Clear(); 
Opts << loPartialKey<<loCaseInsensitive; 
if(RadioButton1->Checked) 
 * Table->Locate("Field1",Edit1->Text,Opts); 
if(RadioButton2->Checked) 
 * Table->Locate("Field2",Edit1->Text,Opts); 
if(RadioButton3->Checked) 
 * Table->Locate("Field3",Edit1->Text,Opts); 
}