ADO Database Delphi

var
aranan:string;
kriter: TLocateOptions;
begin
aranan:=InputBox('Arama','Field1:',");
kriter := [loPartialKey];
ADOTable1.Locate('FIELD1', aranan, kriter);
end;