[th_bav]

Дошло))))))) Вот так надо было, может кому то пригодиться

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
note:integer;
begin
if Edit1.Text='' then
begin
Form1QueryCrosse.Active:=false;
Form1QueryCrosse.SQL.Clear;
Form1QueryCrosse.SQL.Add('SELECT *');
Form1QueryCrosse.SQL.Add('FROM Crosse');
Form1QueryCrosse.SQL.Add('WHERE grom LIKE '''+Edit2.Text+'%'' AND plint LIKE '''+Edit3.Text+'%'' AND port LIKE '''+Edit4.Text+'%'' AND type LIKE '''+Edit5.Text+'%''');
Form1QueryCrosse.Active:=true;
Memo1.Lines.Add(Form1QueryCrosse.SQL.Text)
end
else
begin
Form1QueryCrosse.Active:=false;
Form1QueryCrosse.SQL.Clear;
Form1QueryCrosse.SQL.Add('SELECT *');
Form1QueryCrosse.SQL.Add('FROM Crosse');
Form1QueryCrosse.SQL.Add('WHERE telefon LIKE '''+Edit1.Text+'%'' AND grom LIKE '''+Edit2.Text+'%'' AND plint LIKE '''+Edit3.Text+'%'' AND port LIKE '''+Edit4.Text+'%'' AND type LIKE '''+Edit5.Text+'%'' AND note LIKE '''+Edit6.Text+'%''');
Form1QueryCrosse.Active:=true;
end;
    end;
end.

Admin: Пользуемся тегами, иначе последуют санкции!