Fechas de Pagos 15 y 30 de cada mes!

[ecfisa]

Hola TheNew.

No está muy claro el planteo de lo que querés hacer, pero supongo que querrás validar los ingresos,
de forma que no acepte fechas que no estén entre los días 15 y el máximo día del mes ingresado.
Para correr el código siguiente deberás previamente complementar con ceros.
Por ejemplo si ingresa la cadena: '2/2/2008' tendrás que llevarla a: '02/02/2008'.
Esto se simplificaría si usaras TDate como argumento de la función... es más,
sería sencillísimo si usaras por ejemplo; un TDateTimePicker para el ingreso de las fechas,
puesto que sólo tendrías que verificar el día:
if YearOf(Date) < 15 then 'Error' (YearOf está en la Unit DateUtils).

Pero suponiendo que usamos un TEdit sería:

{ SUPONE FECHA EN FORMATO : DD/MM/AAAA }
function FechaEnRango(Fecha: string): Boolean;
{$J+}
const DiasMes: array[1..12] of Byte=(31,28,31,30,31,30,31,31,30,31,30,31);
{$J-}
var
  Dia,Mes,Anio: Integer;
begin
  Result:= True;
  Anio:= StrToInt(Copy(Fecha,7,4));
  Mes:=  StrToInt(Copy(Fecha,4,2));
  Dia:=  StrToInt(Copy(Fecha,1,2));
  // si el año es bisiesto agregar 1 día a enero
  if ((Anio mod 4 = 0)and(Anio mod 100 <> 0))or(Anio mod 400 = 0) then 
   DiasMes[2]:= DiasMes[2] + 1; 
  if (Dia < 15)or(Dia > DiasMes[Mes]) then Result:= False;
end;

Espero te pueda servir.

Saludos.