Bueno, en ese caso estás jodido, porque que yo sepa no hay una función de Delphi que haga eso.
Se me ocurre que se podría hacer algo así:
Código Delphi
[-]
procedure ValidarFecha(Anio, Mes, Dia: Integer; out Error: Integer);
begin
if Anio <= 0 then Error:= 1
else if not (Mes in [1..12]) then
Error:= 2
else if (Dia > MonthDays[IsLeapYear(Anio), Mes]) then
Error:= 3
else
Error:= 0;
end;
var Error: Integer;
begin
ValidarFecha(2010, 2, 29, Error);
case Error of
0: ShowMessage('La fecha es válida.');
1: ShowMessage('Año incorrecto.');
2: ShowMessage('Mes incorrecto.');
3: ShowMessage('Día incorrecto.');
end;
end;