[enikeu]

/me гордится собой :-)
вот подумал, рас никто не хочет помочь нада делать самому... и сделал! 8-))

кому интересно код получился такой

procedure TForm2.BitBtn8Click(Sender: TObject);
var
sql:string;
sqlu:string;

begin
sql:='';
sqlu:='';
ADOQuery1.Active:=false;
if Edit1.text<>'' then begin
if (sql<>'') then begin
sqlu:='a.[Название] like "'+Edit1.text+'%"';
sql:=sql+' and '+sqlu;
end
else begin
sqlu:='a.[Название] like "'+Edit1.text+'%"';
sql:=sql+sqlu;
end
end;
if (sql<>'') then
begin
sql:='where '+sql;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from Игры a '+sql);
ADOQuery1.Active:=true;
end;
end;