Hola miguel_e, yo he utilizado los diagramas de Gantt para definir periodos de tiempo, te pongo un ejemplo.
Una vez que hayas hecho lo que te indica Delphius, digamos que a nuestra serie le hemos llamado GanttSeries
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
GanttSeries.Clear;
GanttSeries.AddGantt(EncodeDate(2008,1,1), EncodeDate(2008,1,10), 1, 'Descripcion 1' ) ; GanttSeries.AddGantt(EncodeDate(2008,1,15),
EncodeDate(2008,1,21),
1,
'Descripcion 1' );
GanttSeries.AddGantt(EncodeDate(2008,3,1),
EncodeDate(2008,3,15),
2,
'Descripcion 2' );
GanttSeries.AddGantt(EncodeDate(2008,3,20),
EncodeDate(2008,3,31),
2,
'Descripcion 2' );
end;
También se le puede poner un color X a nuestras barras, con AddGanttColor
Código Delphi
[-]
GanttSeries.AddGanttColor(EncodeDate(2008,3,20),
EncodeDate(2008,3,31),
2,
'Descripcion 2',
clRed);
Revisa la ayuda y el ejemplo que viene con delphi "TeeChart".
Saluditos