function TMyClass.Parse(var Answer : TBytes;
                        var Paket : TBytes): Byte;
var
  PaketSize : Byte;
  ByteCount : Byte;
begin
  ByteCount := GetReceivedByteCount;

  try
    PaketSize := ByteCount + cMinPaketSize;
  except
    On E:Exception do
    begin
      log.SendException(cCategory, 'Überlauf bei Berechnung der Paketgröße: '+
                        e.Message, e);
// Hier sagt er, das würde nicht erreicht:
// Die Exception wird dich abgefangen und somit bearbeitet.
       PaketSize := 255;
    end;
  end;