Chart - Trampinho Fácil Pra Vocês

[McBlade]

Estou fazendo um gráfico no Chart onde eu crio as barras verticais na mão!

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;

Onde nI controla a Barra que está sendo inserida bem como o número de controle do componente.

Agora eu keria saber como faço pra que cada barra tenha uma cor diferente (pode ser aleatória) mas que os tons de cores não sejam tão próximos.

Exemplo: Cores muito escuras de mesmo tom (Preto e cinza bem escuro)

[McBlade]

Galera vc's estão fraquinho mesmo heim!!!

Eu consegui resolver esse pepino criando uma variável tipo Grid e adicionando umas cores na mão. Depois eu do um for na variavel e quando chega ao fim eu volto para a primeira linha.