procedure Initialize(AKey: string);
begin
 GetMem(KeyPtr, KeySize);
 FillChar(KeyPtr^, KeySize, #0);
 Key := AKey;

 InvolveKey;
end;

 while (i < Length(TempKey)) do
   begin
     Move((KeyPtr+j)^, K1, 4);
     Move(TempKey[i], K2, 4);
     K1 := ROL(K1, K2) xor K2;
     Move(K1, (KeyPtr+j)^, 4);
     j := (j + 4) mod KeySize;
     Inc(i, 4);
   end;

TRY  
  case dc.Data_type of
    data_null: exit;
  end;
  if Assigned(PData(Control.LVItemData[Row])) then
  begin
    fd := PData(Control.LVItemData[Row]);
    FreeData(fd);
  end
  else
  begin
    new(fd);
    FillChar(fd^, sizeof(TData), 0);
  end;    
  CopyData(fd, @dc);
  Control.LVItemData[Row] := cardinal(fd);
FINALLY  
  FreeData(s);
END;

        Buffer := AllocMem( FD.ColumnSize + 4 );
        TRY
          R := SQLGetData( fSession, i + 1, SQL_C_DEFAULT, Buffer, FD.ColumnSize, @FD.ColumnSize );
          if ((R = SQL_SUCCESS) or (R = SQL_SUCCESS_WITH_INFO)) and (FD.ColumnSize <> SQL_NULL_DATA) then
          begin
            St := NewMemoryStream;
            St.Write( Buffer^, FD.ColumnSize );
            St.Position := 0;
            if scalar then 
              dtStream(ndt, St)
            else
              dtString(ndt, 'Binary');
            free_and_nil(St);
          end; { If }
        FINALLY
          FreeMem(Buffer);
        END;  

 while (i < Length(TempKey)) do
   begin
     Move((KeyPtr+j)^, K1, 4);
     Move(TempKey[i], K2, 4);
     K1 := ROL(K1, K2) xor K2;
     Move(K1, (KeyPtr+j)^, 4);
     j := (j + 4) mod KeySize;
     Inc(i, 4);
   end;