Diferencia de fechas

[noshy]

Hola a todos, necesito saber la cantidad de dias entre dos fechas. Abra alguna funcion que me lo de o tendre que recurrir al famos codigo:

Código Delphi [-]
cont := 0;
while date1 < date2 do
     begin
          cont := cont + 1;
          date1 := date1+ 1;
     end;