try
   instruction1
finally
   instruction2
end;

var
   Ob : TObjetExemple;
begin
   Ob := TObjetExemple.Create; // Création de l'objet
   try
      {instruction}
   finally
      Ob.Free; // Libération
   end;
end; 

function OuvrirF(Nom : TFileName) : boolean;
var
   F : Textfile;
   S : string;
   i, j, valeur :integer;
begin
   AssignFile(F,Nom);
   try
      Reset(F);
      readln(F,S);

      {instruction}

      Result := True;
   finally
      CloseFile(F);
   end;
end; 

try
   instruction1
except
   instruction2
end;
instruction3

procedure TForm1.Button1Click(Sender: TObject);
var
   param1 : Double;
begin
   try
      param1 := StrToFloat(Edit1.Text);

      {suite des instructions}

   except
      on EconvertError do
         MessageDlg('Erreur : Vous devez entrer un réel'
            +#10#13+'Le séparateur décimal est : '+DecimalSeparator, mtError, [mbOk], 0);
   end;
   {Autre instruction non sensible}
end;

try
   {instructions}
except
    {instruction éventuelle commun à tous les cas possibles d'erreur}

    // Gestion des cas prévisibles d'erreur
    on Exception1 do InstructionTraitantErr1;
    on Exception2 do InstructionTraitantErr2;
    ....
    on Exception(n) do InstructionTraitantErr(n);
else
    InstructionTraitantLesCasNonPrevue;
end; 

type
  MonException = class(Exception)
    [HelpContext : THelpContext; // Context dans l'aide]
    [Message : string; // Message d'erreur]
  public
    FonctionGerantErreur(); // Fonction à appeler en cas d'erreur
  end;

FonctionGerantErreur();
begin
  {instructions}
end;

try
  instruction
except
  on E : Exception do
    ShowMessage('Message : ' + E.Message);
    // Et/Ou
    E.MaFonction; // Permet de Centraliser le code gérant un type d'erreur
end; 

type
   EValeurIncorrect = class(Exception);

if Valeur <> ValeurCorrect then
    raise EValeurIncorrect.Create('Valeur ne fait pas partie des valeurs autorisées');

if Valeur <> ValeurCorrect then
    raise EValeurIncorrect.Create('Valeur ne fait pas partie des valeurs autorisées');

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

  MonException = class(Exception)
  public
     function GestErr():string;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function MonException.GestErr():string;
begin
   if MessageDlg('La variable transmise est incorrect continuer avec la valeur par défaut', mtInformation, [mbYes, mbNo], 0) =
       mrYes then
   begin
      Result := 'très petit';
   end;
end;

function DoQuelqueChose(valeur : double):string;
begin
   // La fonction ne travaille que sur des nombres réels positifs
   if valeur < 0 then
   begin
      raise MonException.Create('Erreur: Travaille impossible !');
   end;

   // Travaille sur valeur complètement sans intérêt
   if valeur < 10 then
      result := 'très petit'
   else if valeur <= 50 then
      result := 'moitié de cent'
   else if valeur <= 100 then
      result := 'égal à cent'
   else
      result := 'très grand';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   r : double;
   tmpstr : string;
begin
   try
      r := StrToFloat(Edit1.Text);
      tmpstr := DoQuelqueChose(r);
   except
    on E : MonException do
      tmpstr := E.GestErr;
    on EconvertError do
    begin
      ShowMessage('Erreur de Saisie : nombre attendu'
         +#10#13+'Séparteur décimal : '+DecimalSeparator);
      tmpstr := 'Mauvaise saisie';
    end;
    else
    begin
       ShowMessage('Erreur Inconnue');
       tmpstr := 'Invalid';
    end;
   end;
   ShowMessage('Résultat : '+tmpStr);
end;

end.