No se si hay una función específica para validar una fecha, pero podrías utilizar algo como:
Código Delphi
[-]
function IsDate(ADate: string): Boolean;
var
Dummy: TDateTime;
begin
IsDate := TryStrToDate(ADate, Dummy);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsDate(Edit1.Text) Then
Caption := 'Ok';
end;