1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button5Click(Sender: TObject);
begin
With Table1 Do
begin
   Table1.CachedUpdates := True;
   Table1.CachedUpdates := False;
Indexname := 'Modell (Typ)';
EditKey;
Fieldbyname('Modell (Typ)').ASString := Edit3.text;
Gotonearest;
if not Table1.GotoKey then
ShowMessage('Datensatz nicht gefunden');
   Table1.CachedUpdates := True;
   Table1.CachedUpdates := False;
end;
end;					

1:

Table1.Locate('Feldindemgesuchtwerdensoll', Edit3.Text ,[loCaseInsensitive, loPartialKey]);