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

  try
    MachWas(Query1);
  except
    on E:Exception do
    begin
       showmessage(E.ClassName+':'+E.Message);
    end;
   Query1.Next; // nächster Datensatz
  end;					

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

    try
    except
      on E: EDBEngineError do
        if (E.Errors[0].ErrorCode = $00002803)
          ...
      on E: Exception do
        raise;
    end;					

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

try
    polyline[i].lat :=  strtofloat(lat);
    polyline[i-5].lon :=  strtofloat(lon);
except
   on E:Exception do begin
     showmessage(E.ClassName+':'+E.Message);
     raise;
   end;					

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

  try
    //...
  except
    ShowMessage(Exception(ExceptObject).ClassName+': '+Exception(ExceptObject).Message);
    raise;
  end;					

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

var
  i: Integer; //Array-Index
  arr: array[-2..10] of Integer; //Array

if (i >= Low(arr)) and (i <= High(arr)) then 
  arr[i] := StrToInt(EinText);