Italian community of Lazarus and Free Pascal

     try
        try
           
           //nostro codice da eseguire su cui vogliamo effettuare una gestione degli errori
           ...
           
        finally
               //codice da effettuare a fine procedura sia che va bene il codice sopra sia che il codice ha sollevato un'eccezzione               
       end;
     except
           on E: Exception do
           begin
              
              //codice da eseguire solo se si verifica un eccezzione
              
           end;
     end;

var
   app: string;
begin
     try
        try
           app:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
        finally
               //Sono a fine procedura
               ShowMessage(app);
       end;
     except
           on E: Exception do
           begin
              ShowMessage('Errore: ' + E.message);
              Application.Terminate;
           end;
     end;
end;