[khvalera]

Извини, привел не весь код.
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key=#13 then
begin

if not Table2.Locate('Nazva',Edit1.Text,[]) then

    if MessageDlg('Òàêî¿ íàçâè íåìàº. Äîäàòè?',
   mtConfirmation, [mbYes,mbNo], 0) = mrYes then
   begin Table2.Edit;
         Table2.Insert;
         Table2.Fields[1].AsString:=Edit1.Text;
         Edit1.Text:='';
         DBEdit1.Enabled:=True;
   end
   else Edit1.Text:='';

SelectNext(Sender as TWinControl,True,True);
Key:=#0;
end
else
Table2.Locate('Nazva',Edit1.Text,[loCaseInsensitive, loPartialKey]);

В том примере, что ты привел, согласен, все работает нормально.
А здесь поиск в базе данных только после второго вводимого символа.