[th_bav]

Вопрос уже не актуален, дошло:

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
  Grom:Integer;
  Plint:Integer;
  Port:Integer;
  Typee:Integer;
  Note:Integer;

begin
  Form1QueryCrosse.SQL.Clear;
  Form1.Memo1.Clear;
	Memo1.Lines.Add('SELECT * FROM Crosse');
  if Edit1.Text<>'' then
      Memo1.Lines.Add('WHERE telefon LIKE '''+Edit1.Text+'%''');

  Grom:= Length(Memo1.text)-((Memo1.Lines.Count-1)*2);
  if Edit2.Text<>'' then
      if Grom>22 then
          Memo1.Lines.Add(' and  grom LIKE ''' +Edit2.Text+'%''');
  if Edit2.Text<>'' then
      if Grom<24 then
          Memo1.Lines.Add('WHERE grom LIKE ''' +Edit2.Text+'%''');

	Plint:= Length(Memo1.text)-((Memo1.Lines.Count-1)*2);
  if Edit3.Text<>'' then
      if Plint>22 then
          Memo1.Lines.Add(' and  Plint LIKE ''' +Edit3.Text+'%''');
  if Edit3.Text<>'' then
      if Plint<24 then
      Memo1.Lines.Add('WHERE Plint LIKE ''' +Edit3.Text+'%''');

	  Port:= Length(Memo1.text)-((Memo1.Lines.Count-1)*2);
  if Edit4.Text<>'' then
      if Port>22 then
          Memo1.Lines.Add(' and  Port LIKE ''' +Edit4.Text+'%''');
  if Edit4.Text<>'' then
      if Port<24 then
      Memo1.Lines.Add('WHERE Port LIKE ''' +Edit4.Text+'%''');

	  Typee:= Length(Memo1.text)-((Memo1.Lines.Count-1)*2);
  if Edit5.Text<>'' then
      if Typee>22 then
          Memo1.Lines.Add(' and  Type LIKE ''' +Edit5.Text+'%''');
  if Edit5.Text<>'' then
      if Typee<24 then
      Memo1.Lines.Add('WHERE Type LIKE ''' +Edit5.Text+'%''');

	  Note:= Length(Memo1.text)-((Memo1.Lines.Count-1)*2);
  if Edit6.Text<>'' then
      if Note>22 then
          Memo1.Lines.Add(' and  Note LIKE ''' +Edit6.Text+'%''');
  if Edit6.Text<>'' then
      if Note<24 then
      Memo1.Lines.Add('WHERE Note LIKE ''' +Edit6.Text+'%''');

begin
    Form1QueryCrosse.SQL.Add(Memo1.Text);
    Form1QueryCrosse.Active:=true;
end;
end;