try except

[Doglao]

Ola!
Nao estou conseguindo fazer funcionar um simples try except no delphi 5 e tenho programas que usam, mas este de agora nao funciona, tem haver com alguma configuracao do compilador?

Código: Selecionar todos

procedure TForm1.Button1Click(Sender: TObject);
begin
     try
          ShowMessage(FloatToStr(StrToFloat(EditNum1.Text)/StrToFloat(EditNum2.Text)));
     except
          ShowMessage('Voce digitou valores incorretos');
          EditNum1.Text:=' ' ;
          EditNum2.Text:=' ' ;
     end;
end;

Valeu!

[Doglao]

hehehe tinha esquecido!! foi mal ai, to tentando que funcione com o debug , funciona sim, ta tudo certinho, sem erros, ate mais.