[dvtimofei]

Если делаю так:

Код:

procedure TForm7.Button1Click(Sender: TObject);
var
  F: TextFile;
  sql:String;
  Family:String;
  b:Integer;
...................
 sql:='Upper(Family)=Upper('+family+')';  
Пишет;
Неопределенная функция Upper в выражении
и выделяет 
  ADOQuery10.Active:=True;

Если делаю так

Если делаю так:
procedure TForm7.Button1Click(Sender: TObject);
var
  F: TextFile;
  sql:String;
  Family:String;
  b:Integer;
...................
 sql:='Family';

Работает только отчет создает по всем пользователем а не по нужному