validar data pelo mes

[quote:294a873f8c=´cosmo pereira´]meu problema é o seguinte trabalho com notas de lançamentos de entrada e saida e gostaria de evitar um erro grave, quando estou lançando eu digito a data 10/10/2002 e o mes de lançamento da nota não é este e sim 10/11/2002 como faço para travar o mes e só aceitar o mes correto agradeço toda ajuda .........[/quote:294a873f8c]

var
dttrava:tdatetime;
dtexemplo:tdatetime;
begin
dttrava:=strtodate(´12/10/2002´);
dtexemplo:=strtodate(edit1.text);
if dttrava>dtexemplo then
showmessage(´Data invalida!´);
end;


apenas um exemplo manipule da forma que quiser ...