[johurgi]

Gracias por vuestras respuestas, ya lo resolvi de la siguiente forma:

//ANTERIORMENTE YA FORMATEO LA FECHA PARA MONTAR EL STRING DE //LA FORMA QUE VEIS EN EL CODIGO.
procedure fechas(ini,fin:string);
var
  lafecha:Tdatetime;
  diaini:Tdatetime;
  diafin:Tdatetime;
begin
diaini:=strtodate(ini);{01/12/07}
diafin:=strtodate(fin);{18/12/07}
if CompareDate(diaini,diafin)=1 then lafecha:=diaini;
else lafecha:=diafin;
result:=lafecha;
end;

Espero que le sirva a alguien.

un saludo.