1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Var
  Sum: PByte;
  Size: Integer;
Begin
  Size := 2147483646;
  GetMem(Sum, Size);

  try
    FillChar(Sum^, Size, 0);
  except
    showmessage('Blabla');
  end;
End;                    

1:
2:
3:
4:
5:
6:

 Try
   a:=1/0;
 except
   showmessage('Test');
   raise Exception.Create('Beispiel-Exception');
 End;                    

1:
2:
3:
4:
5:
6:
7:

 Try
   a:=1;
   a:=a/0;
 except
   showmessage('Test');
   raise Exception.Create('Beispiel-Exception');
 End;                    

1:
2:
3:
4:
5:
6:
7:

  try
    // irgendwas
  except
    on E:Exception do begin
      // Hier eine Meldung anstelle der Exception ausgeben, RAISE braucht nicht aufgerufen werden  
    end;
  end;                    

1:
2:
3:
4:
5:
6:
7:

  try
    GetMem(Sum, Size);
    FillChar(Sum^, Size, 0);
  except
    showmessage('Blabla');
  end;
End;                    

1:
2:
3:
4:
5:
6:

try
  GetMem(Sum, Size);
  FillChar(Sum^, Size, 0);
except
  ShowMessage(Exception(ExceptObject).Message); // Zeigt den Originaltext der Exception an
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

 Size := 2147483646;
  Try
    GetMem(Sum, Size);
    FillChar(Sum^, Size, 0);
  Except
    On E: EOutOfMemory Do
    Begin
      showmessage('Blabla');
    End;
  End;                    

1:
2:
3:
4:
5:
6:
7:
8:

 Size := 2147483646;
  Try
    GetMem(Sum, Size);
    if Assigned(Sum) then
      FillChar(Sum^, Size, 0);
  Except
    ShowMessage(Exception(ExceptObject).Message);
  End;                    

1:
2:
3:
4:
5:
6:
7:

        if Assigned(FOnExecute) then // externer Prozessor zugewiesen?
          try // der externe Befehlsprozessor könnte eine Exception "erleiden"
            FOnExecute(FSender,Self); // dann aufrufen
          except // fangen, damit die eigenen Datenstrukturen nicht strubbelig werden
            if Assigned(FOnError) then
              FOnError(FSender,Self,paeException,Integer(ExceptObject));
          end;                    

1:
2:

  GetMem(Data, Size); 
  FillChar(Data^, Size, 0);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

Procedure TForm1.Button1Click(Sender: TObject);
Var
  CheckSum: PByte;
  TestW: Word;
  SizeCheckSum, TestInt, Zahl: Integer;
Begin
  TestW := 999;
  TestInt := 100;
  Zahl := 3;
  Try
    SizeCheckSum := 7;
    GetMem(CheckSum, SizeCheckSum);
    FillChar(CheckSum^, SizeCheckSum, 0);

    System.Move(Pointer(@TestW)^, CheckSum^, 2);
    inc(CheckSum, 4);
    System.Move(Pointer(@TestInt)^, CheckSum^, 4); // Daten kopieren
    Inc(CheckSum, 4);
    System.Move(Pointer(@Zahl)^, CheckSum^, 4); // Daten kopieren
    Inc(CheckSum, 4);
    System.Move(Pointer(@Zahl)^, CheckSum^, 4); // Daten kopieren
    Inc(CheckSum,19);

    Dec(Checksum, SizeCheckSum);

    FreeMem(CheckSum, SizeCheckSum);
  Except
    showmessage('a');
  End;
End;                    

1:
2:

  SetLength(Data, DataLength);
  System.Move(PChar(PA.Inbound.Strings[5])^, Pointer(@Data[1])^, DataLength);