[DOR]

Помогите пожалуйста поправить код.

Код:

procedure Tf_InformKontragenta.ComboBox1Change(Sender: TObject);
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;
  Q.First;
  ComboBox1.Items.Clear;
    While not Q.Eof Do
      begin
        ComboBox1.Items.Add(Q.FieldByName('FULL_NAME').AsString);
        Q.Next;
      end;
end;