Fechas

Supongo que quieres saber los días de diferencia entre dos fechas. Pongo el ejemplo para que lo calcule al pulsar un botón, y aparezca en una etiqueta:
procedure TForm1.BitBtn1Click(Sender: TObject);
var FechaInferior, FechaSuperior: tDate;
begin
FechaInferior := StrToDate('01/01/2003');
FechaSuperior := StrToDate('31/01/2003');
Label1.Caption := 'Hay '+FloatToStr(Int(DateTimeToJulianDate(FechaSuperior))-Int(DateTimeToJulianDate(FechaInferior)))+' dias de diferencia';
end;
Nota: Para que DateTimeToJulianDate funcione, has de añadir DateUtils en el Uses del formulario.