[Вовайн]

Сообщение от Страдалецъ

А собственно в какой компонент ты выводишь этот текст? Приведенный тобой код никакого отношения к проблеме не имеет.

Код:

procedure TForm1.btnFindClick(Sender: TObject);
begin
  If Trim(Edit1.Text) = '' Then Exit;

  DBGrid1.Visible:=true;
  BitBtn2.Visible := True;

  ADOQuery1.Active := False;
  ADOQuery1.SQL.Clear;

  ADOQuery1.SQL.Text := GetSearchQuery(Edit1.Text);
  ADOQuery1.Active:=true;

  dbgrid1.Columns[0].Width:=800;
  dbgrid1.Columns[1].Width:=60;
  dbgrid1.Columns[2].Width:=75;
end;