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