Создание запроса SQL

[Serge_Bliznykov]

а .Text где!?

if Edit1.Text <> '' then ...

[GX_h10]

Работает при условии, что каждый поставщик в таблице БД имеет отдельное поле.
Если имена поставщиков заполняются в одном поле, то не имеет смысла "разводить"
Edit'ы, а сделать выборку через один Edit (см.код #2)

код #1

private
  procedure Finder(Sender: TObject);

implementation

procedure TForm1.Finder(Sender: TObject);
var
  sql:string;
begin
  sql := 'SELECT * FROM table'+
         ' WHERE postavchik_1 like ' + QuotedStr(Edit1.Text + '%')+
         ' AND  postavchik_2 like ' + QuotedStr(Edit2.Text + '%')+
		 ' AND  postavchik_3 like ' + QuotedStr(Edit3.Text + '%')+
		 ' AND  postavchik_4 like ' + QuotedStr(Edit4.Text + '%')+
		 ' AND  postavchik_5 like ' + QuotedStr(Edit5.Text + '%')+
		 ' AND  postavchik_6 like ' + QuotedStr(Edit6.Text + '%');
         
  ADOQuery.Close;
  ADOQuery.SQL.SetText(PChar(sql));
  ADOQuery.Open;
end;

procedure TForm1.Edit1Change(Sender: TObject); //Поставщик 1
var
  sql:string;
begin
  Finder(Sender);
end;

procedure TForm1.Edit2Change(Sender: TObject); //Поставщик 2 
var
  sql:string;
begin
  Finder(Sender);
end;

...

procedure TForm1.Edit6Change(Sender: TObject); //Поставщик 6 
var
  sql:string;
begin
  Finder(Sender);
end;

Код #2

procedure TForm1.Edit1Change(Sender: TObject);
var
  sql:string;
begin
  sql := 'SELECT * FROM table WHERE postavchik like ' + QuotedStr(Edit1.Text + '%');

  ADOQuery.Close;
  ADOQuery.SQL.SetText(PChar(sql));
  ADOQuery.Open;
end;

[GX_h10]

В первом случае недоработано, лучше сделать так:

...
  procedure FindEditChange(Sender: TObject);

private
  procedure Finder(Sender: TObject);

implementation

procedure TForm1.Finder(Sender: TObject);
var
  sql:string;
begin
  sql := 'SELECT * FROM table'+
         ' WHERE postavchik_1 like ' + QuotedStr(Edit1.Text + '%')+
         ' AND  postavchik_2 like ' + QuotedStr(Edit2.Text + '%')+
		 ' AND  postavchik_3 like ' + QuotedStr(Edit3.Text + '%')+
		 ' AND  postavchik_4 like ' + QuotedStr(Edit4.Text + '%')+
		 ' AND  postavchik_5 like ' + QuotedStr(Edit5.Text + '%')+
		 ' AND  postavchik_6 like ' + QuotedStr(Edit6.Text + '%');
         
  ADOQuery.Close;
  ADOQuery.SQL.SetText(PChar(sql));
  ADOQuery.Open;
end;

procedure FindEditChange(Sender: TObject);
begin
  Finder(Sender);
end;

Теперь у каждого Edit'а, в событии OnChange
вставить вот это - FindEditChange.