[*Caro*]

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),  //Inicio del periodo o barra a dibujarse
                       EncodeDate(2008,1,10),        //Fin del periodo
                       1,                                     //Posición en el eje vertical
                       'Descripcion 1' ) ;                //Descripción asociada a la posición del eje vertical
 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