1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
  myIndex                    : Integer;
  myFileStream               : TFileStream;
  myFilterItem               : ^TFilterItem;  { TFilterItem ist ein record }
begin
     { TFileStream.Create war erfolgreich, wenn wir hierhin kommen }
     try
       for myIndex := 0 to (Integer(myFileStream.Size) Div Integer(sizeof(TFilterItem))) - 1 do begin
         New(myFilterItem);
         if Assigned(myFilterItem) then begin
           myFileStream.ReadBuffer(myFilterItem, sizeof(TFilterItem));  { hier kommt beim 2. Schleifendurchlauf die Access Violation }
           gFilterList.Add(myFilterItem);
         end;
       end;
     except
       Dispose(myFilterItem); [ Im Fehlerfall letztes New() rückgängig machen }
     { ... }					

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

type
  TFilterType = (kReadAccess, kWriteAccess);

  TFilterItem = record  { all items of the filter list are made of this record }
    mType                    : TFilterType; { Type 1 contains mFilterActive, mReceiverAddress, mSenderAddress and mMemoryAddress        }
                                            { Type 2 contains     - " -            - " -            - " -    , mActuatorAddress, mTaskID}
    mFilterActive            : Boolean;     { true = filter is active | false = filter is not taken into account for filtering purposes }
    mReceiverAddress         : Byte;        { bus address of sender }
    mSenderAddress           : Byte;        { bus address of receiver }

    mMemoryAddress           : Cardinal;    { TYPE 1 : memory address to filter for }

    mActuatorAddress         : Byte;        { TYPE 2 : actuator's index to set value for }
    mTaskID                  : Byte;        { TYPE 2 : sub-item of actuator. see AspBus manual. Ranges from $00 to $0B }
  end;