Codestelle erklären (Tapi / shl)?

[Jumpy]

Hallo,
kann mir jemand die folgende Funktion einmal erklären? Es ist eine Funktion um den Zustand eines mit der Tapi überwachten Calls auszulesen, aber ich versteh nicht wie das funktioniert (die for-schleife):

Delphi-Quellcode:

function TMyCall.get_CallState: string;
var i: integer;
begin
 try
  if priv_LineCallStatus.MyCallStatus.dwCallState = 0 then begin
   Result := '*** false ***';
  end else begin
   Result := '';
   for i := low(TAPI_LineCallState) to High(TAPI_LineCallState) do
       if (priv_LineCallStatus.MyCallStatus.dwCallState and (1 shl i)) > 0
          then Result := Result + TAPI_LineCallState[i] + ', ';
   if Length(Result) > 0
      then Result := Copy(Result, 1, Length(Result) - 2);
  end;
 except
  MyTapi.ShowWarning('Error: TMyLine.get_CallState', 'uMyTapiObj');
 end;
end;

TAPI_LineCallState ist ein String Array:

Delphi-Quellcode:

  TAPI_LineCallState: array [0..15] of string =
                    ( 'LINECALLSTATE_IDLE',
                      'LINECALLSTATE_OFFERING',
                      'LINECALLSTATE_ACCEPTED',
                      'LINECALLSTATE_DIALTONE',
                      'LINECALLSTATE_DIALING',
                      //usw.

dwCallState kommt aus der Tapi:

Delphi-Quellcode:

  PLineCallStatus = ^TLineCallStatus;
  linecallstatus_tag = packed record
    dwTotalSize,
    dwNeededSize,
    dwUsedSize,
    dwCallState,
    dwCallStateMode,
    dwCallPrivilege,
    dwCallFeatures,
    dwDevSpecificSize,
    dwDevSpecificOffset: DWORD;
{$IFDEF TAPI20}
    dwCallFeatures2: DWORD;                              // TAPI v2.0
{$IFDEF WIN32}
    tStateEntryTime: TSystemTime;                        // TAPI v2.0
{$ELSE}
    tStateEntryTime: array[0..7] of WORD;                // TAPI v2.0
{$ENDIF}
{$ENDIF}
  end;
  {$EXTERNALSYM linecallstatus_tag}
  TLineCallStatus = linecallstatus_tag;
  LINECALLSTATUS = linecallstatus_tag;
  {$EXTERNALSYM LINECALLSTATUS}