[sailen]

Код:

procedure form1.BitBtn1Click(Sender: TObject);
begin

adoquery1.SQL.Clear;
adoquery1.SQL.Add('SELECT *');
adoquery1.SQL.Add('FROM ТАБЛИЦА');

  if (Length(Edit1.Text) > 0) or
     (Length(Edit2.Text) > 0) then
   then

     begin
     adoquery1.SQL.Add('where street LIKE'''+Edit1.Text+'''AND');
     adoquery1.SQL.Add('kvartl LIKE' + #39 + Edit2.Text + '%' + #39);
     adoquery1.Active:= true;
     end
   else
     begin
     adoquery1.Active:= True;
     adoquery1.First;
     end;
end;

Админ: Пользуемся тегами для оформления кода!