Floating Point division by zero exception handling in DLL's (Delphi 1.0)

I am having serious problems trapping the floating point
division by zero exception within DLL's in Delphi 1.0.

It seems to work fine in Delphi 2.0.
It also works fine within the program section of Delphi 1.0.

Here is some stripped down code:
************************************************************
Code to Call Form from Application in DLL.

Type
  Proc = procedure;

procedure THelpaMainForm.Button1Click(Sender: TObject);
var
  HInst                             : THandle;
  FPointer                          : TFarProc;
  MyProc                            : Proc;
  DLLLoad                           : boolean;

begin
  if HInst > 32 then
    begin
    FPointer := GetProcAddress(HInst,'CreateTemp');
    if FPointer <> nil then
      begin
      MyProc := Proc(FPointer);
      MyProc;
      DLLLoad := true;
      end;
    end;
end;

************************************************************
Code to Create form in DLL

Procedure CreateTemp;
begin
  Screen.Cursor := crHourglass;
  Form1 := TForm1.Create( application );
  Screen.Cursor := crDefault;

  Form1.Show;
end;

************************************************************
Code used to Trap Exception in DLL

procedure TForm1.Button1Click(Sender: TObject);
var
  TESTNUM : real;

begin
  try
    TESTNUM := strtofloat(edit1.text) /                strtofloat(edit2.text);
  except
    on EZeroDivide do
      begin
      MessageDlg('An exception occured!!',mtERROR, [mbOK], 0);
      exit;
      end;
  end;
end;

************************************************************