procedure TForm1.BitBtn7Click(Sender: TObject);
var
  i, x: word;
  listNCHTO: TstringList;
  s, s1: string;
begin
  listNCHTO:= TStringList.Create;

 listNCHTO.Sorted:= true;
  listNCHTO.Duplicates:= dupIgnore;  //  Не добовлять повторяющиеся записи
  //
  Query1.Close;  //  Закрыли запрос
  Query1.SQL.Clear;  //  Отчистили запрос
  Query1.SQL.Add('Select KOL, NCHTO from ' + (#39 + 'RAS.dbf' + #39));  //  Добавили новый запрос
  Query1.Open;  //  Открыли запрос
  Query1.First;
  while not Query1.Eof do
    begin
      listNCHTO.Add(Query1.FieldValues['NCHTO']);      Query1.Next;
    end;
  Query1.First;
  //
  Query2.Close;  //  Закрыли запрос
  Query2.SQL.Clear;  //  Отчистили запрос
  Query2.SQL.Add('Select DISTINCT NCHTO from ' + (#39 + 'ARA.dbf' + #39));  //  Добавили новый запрос
  Query2.Open;  //  Открыли запрос
  Query2.First;
  while not Query2.Eof do
    begin
      listNCHTO.Add(Query2.FieldValues['NCHTO']);
      Query2.Next;
    end;
  //
  Query3.Close;  //  Закрыли запрос
  Query3.SQL.Clear;
 //  Отчистили запрос
  Query3.SQL.Add('Select OST, NCHTO from ' + (#39 + 'OSGP.dbf' + #39));  //  Добавили новый запрос
  Query3.Open;  //  Открыли запрос
  Query3.First;
  while not Query3.Eof do
    begin
      listNCHTO.Add(Query3.FieldValues['NCHTO']);
      Query3.Next;
    end;
  Query3.First;
  //
  Query2.Close;  //  Закрыли запрос
  Query2.SQL.Clear;  //  Отчистили запрос
  Query2.SQL
 .Add('Select NKOL, NCHTO from ' + (#39 + 'Prin.dbf' + #39));  //  Добавили новый запрос
  Query2.Open;  //  Открыли запрос
  Query2.First;
  //
  Form6.StringGrid1.RowCount:= listNCHTO.Count + 1;
  for i:= 1 to listNCHTO.Count do
    begin
      s:= listNCHTO.Strings[i - 1];
      Form6.StringGrid1.Cells[0, i]:= s;
      //
      while not Query3.Eof do
        begin
          s1:= Query3.FieldValues['NCHTO'];
          if s1 = s then
      
     begin
              Form6.StringGrid1.Cells[1, i]:= FloatToStr(Query3.FieldValues['OST']);
              break;
            end
          else
            Form6.StringGrid1.Cells[1, i]:= '0';
          Query3.Next;
        end;
      Query3.First;
      //
      x:= 0;
      while not Query2.Eof do
        begin
          s1:= Query2.FieldValues['NCHTO'];
          if s1 = s then
            x:= x + 
 Query2.FieldValues['NKOL'];
          Query2.Next;
        end;
      Query2.First;
      Form6.StringGrid1.Cells[2, i]:= inttostr(x);
      //
      while not Query1.Eof do
        begin
          s1:= Query1.FieldValues['NCHTO'];
          if s1 = s then
            begin
              Form6.StringGrid1.Cells[3, i]:= FloatToStr(Query1.FieldValues['KOL']);
              break;
            end
          else
            Form6.StringGrid1.Cells[3,
i]:= '0';
          Query1.Next;
        end;
      Query1.First;
      //
      Form6.StringGrid1.Cells[4, i]:= FloatToStr(StrToFloat(Form6.StringGrid1.Cells[1, i]) + StrToFloat(Form6.StringGrid1.Cells[2, i]) - StrToFloat(Form6.StringGrid1.Cells[3, i]));
    end;
  Form6.visible:= true;
  Query1.Close;  //  Закрыли запрос
  Query2.Close;  //  Закрыли запрос
  Query3.Close;  //  Закрыли запрос
  listNCHTO.Free;
end;