procedure TForm10.Button1Click(Sender: TObject);
var i,j: integer;
begin
  label1.Caption:=inttostr(form8.ADOQuery5.RecordCount);  
  stringgrid1.RowCount:=form8.ADOQuery5.RecordCount;
  j:=1;
     with form8.DBGrid7.DataSource.DataSet do begin
       First;
         while not eof do begin
            for i:=0 to form8.DBgrid7.Columns.Count do
               StringGrid1.Cells[i,j]:=Fields[i].AsString;
                 Next;
                   Inc(j);
            end;
      end;
label4.Visible:=true;
label4.Caption:='----  данные по '+form8.DBEdit5.Text+' пилоту: '+ ' и этапам страны: '+form8.DBEdit1.Text;
  for j:=1 to stringgrid1.rowCount do begin
     series1.AddXY(j,strtofloat(stringgrid1.Cells[3,j]),form8.DBGrid5.Fields[0].Name,clred);
  end;
label1.Caption:=inttostr(stringgrid1.ColCount);
 end;

procedure TForm10.Button5Click(Sender: TObject);
var i,j: integer;
begin
   if label4.Visible=true then 
     label1.Caption:=inttostr(form8.ADOQuery5.RecordCount);
     stringgrid1.RowCount:=form8.ADOQuery5.RecordCount;
     j:=1;
        with form8.DBGrid7.DataSource.DataSet do begin
        First;
            while not eof do begin
                for i:=0 to form8.DBgrid7.Columns.Count do
                 StringGrid1.Cells[i,j]:=Fields[i].AsString;
                   Next;
                   Inc(j);
             end;
        end;
   form12.Qrlabel2.Show;
   form12.Qrlabel2.Caption:='----  данные по '+form8.DBEdit5.Text+' пилоту: '+ ' и этапам страны: '+form8.DBEdit1.Text; 
   form12.series1.Clear;
  for j:=1 to stringgrid1.rowCount do begin
   form12.series1.AddXY(j,strtofloat(stringgrid1.Cells[3,j]),form8.DBGrid5.Fields[0].Name,clred);
  end;
     form12.QuickRep1.Preview;
end;

procedure TForm10.Button2Click(Sender: TObject);
 begin
form12.Series1.Clear;
series1.Clear;   label4.Visible:=false;
end;