ShowModal continues running the application.
obtaining the return when the form is completed
function PegaData(padrao: TDatetime; texto: string; ValidaAno: Boolean): Tdatetime;
begin
Result := 0;
if padrao > 0 then
frmPegaData.edDate.date := padrao;
frmPegaData.lbldata.Caption := texto;
frmPegaData.ValidaAno := ValidaAno;
if frmPegaData.ShowModal =mrOk then
BEGIN
if frmPegaData.edDate.date > 1 then
Result := frmPegaData.edDate.date;