[guitarrahugo]

Tema solucionado, lo que había que hacer era convertir en date el eje X, de esta manera llega hasta el día 31 y agrupa de manera inmediata el día 1. Gracias por tu ayuda. Como dije antes, una vez más tema solucionado gracias al foro.Asi quedó el código.

Código Delphi [-]
             for I := 1 to NumeroResultados  do
             begin
                    nomen.RecordSetIndex:= i; 
                    y := StrToFloat(StringReplace(Nomen.field['RESULTADO'], '.',',',[rfReplaceAll])); 
                    x := StrTodate(copy( (Nomen.field['fecha']),1,2)+'/'+ copy( (Nomen.field['fecha']),4,2));
                    titulo:= copy( (Nomen.field['fecha']),1,5);
                    if strToInt(Nomen.field['ANULADO'])= 1 then
                    begin
                          Series5.AddBubble(x,y,0.2,titulo,clRed); //grafica punto anulado
                          PuntoAnulado := PuntoAnulado + 1
                    end
                    else begin
                          Series1.AddBubble(x,y,0.2,titulo);
                          CantResultados := CantResultados + 1;
                          SumaResultados :=  SumaResultados + StrToFloat(StringReplace(Nomen.field['RESULTADO'], '.',',',[rfReplaceAll]));
                          ValordeAnalisis[i]:= StrToFloat(StringReplace(Nomen.field['RESULTADO'], '.',',',[rfReplaceAll]));
                     end;

                  //Le digo que trace la media a partir de la fecha mas alta que encontro entoces va a ir de 0 a 31 x ejemplo
                  if GraficaHasta < StrToInt(copy( (Nomen.field['fecha']),1,2)) then//+ copy( (Nomen.field['fecha']),1,2))+2 then
                   GraficaHasta := StrToInt(copy( (Nomen.field['fecha']),1,2)) + 2;

              end;