Fórum Chart com Barras em cores aleatórias mas tons não muito próx #279403

var
  cSeries: TBarSeries;
  nI,nExComp,nExames: Integer;
begin
  for nI := 0 to StringGrid1.RowCount-1 do
  begin
    Query1.SQL.Clear;
    Query1.SQL.Add(´Select Count(exc_qtde) from ExameComp´);
    Query1.Open;
    while not Query1.Eof do
    begin
      nExComp := nExComp + Query1.FieldByName(´count´).asInteger;
      Query1.Next;
    end;
    Query2.SQL.Clear;
    Query2.SQL.Add(´Select Count(exe_qtde) from Exame´);
    Query2.Open;
    while not Query2.Eof do
    begin
        nExames := nExames + Query2.FieldByName(´count´).asInteger;
        Query2.Next;
    end;
    cSeries := TBarSeries.Create(Chart1);
    cSeries.Name := ´Series´+IntToStr(nI+1);
    Chart1.Series[nI].AddXY(1,nExComp);
    Chart1.Series[nI].AddXY(2,nExames);
  end;
end;