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;