Amigo preciso que verifique se está correto da forma que fiz;
procedure TfrmCadAluno.EditDataNascimentoExit(Sender: TObject);
begin
// EditDataNascimento e digitado pelo usuário
EditDataNascimento.Text := FloatToStr(date-StrToDate
(Edit1.Text)) ;
//EditIdade recebe o resultado
EditIdade.Text := FloatToStr(trunc((date-StrToDate
(Edit1.Text))/365.25)) ;
//Edit1 está vazio
end;Agradeço.
