Fórum Ajuda com data em um condição IF #400318

Boa noite, Bom pessoal gostaria da ajuda de vocês na seguinte questão:   Tenho um formulario de registro de protocolo, neste formulário tem varios objeto, mais quero me referir a dois: na tabela o campo data que recebe valor passado pelo objeto - Tdbdateedit - name - dtdate; natabela regprotocolo que recebe o valor do campo numero registro. Qual a questão, gostaria de quando fosse digitado no [dtdate] uma data <= que 30/04/2011 o [regprotocolo] receba o seguinte valor: regitro+1, sendo que registro é uma variavel do tipo integer;    tipo   if dtdata <= 30/04/2011 then begin regprotocolo.as integer := registro(40)+1 o que  daria 41 end else begin regprotocolo.as integer := registro(0)+1 end   Gastaria a ajuda de vocês e principalmente se estou no caminho certo   conto com a ajuda de você   e muito obrigado.