[DOR]

Вот это почти работает, но при очистке items курсор встает на первую позицию. Это как то можно победить?

Код:

procedure Tf_InformKontragenta.ComboBox1KeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
var
  Q : TIBQuery;
begin
  Q := TIBQuery.Create(nil);
  Q.Database := Module.IBDatabase1;
  Q.Transaction := Module.IBTransaction1;
  Q.Close;
  Q.SQL.Clear;
  Q.SQL.Add ('SELECT * FROM S_PF WHERE FULL_NAME CONTAINING (:Poisk)');
  Q.Params.Items[0].AsString := ComboBox1.Text;
  Q.Open;
  ComboBox1.Items.Clear;
  Q.First;
    While not Q.Eof Do
      begin
        ComboBox1.Items.Add(Q.FieldByName('FULL_NAME').AsString);
        Q.Next;
      end;
  Q.Close;
  Q.Free;
end;