procedure ThiMTStrTbl.ActionItm; // проверен
var
  Row, Col: integer;
  fd: PData;
begin
  case Data.Data_type of
    data_null: exit;
  end;


  case Mode of              
    ITM_INSERT, ITM_REPLACE: 
    begin 
     Row := ReadInteger(Data, Null);
     if (Row > Control.Count - 1) then Row := Control.Count; // Значит ADD
    end;   
  end;    
  
  Col := 0;
  Control.LVItemInsert(Row, ');     

  while Col < Control.LVColCount do
  begin
    Control.LVItems[Row, Col] := ReadString(Data, Null);
    inc(Col);
  end;
  case Data.Data_type of
    data_null: exit;
  end;
  new(fd);
  FillChar(fd^, sizeof(TData), 0);

  if (Assigned(SmIlist) and (Control.LVStyle <> lvsIcon)) or
     (Assigned(LgIlist) and (Control.LVStyle = lvsIcon)) then
//    begin
     Control.LVItemImageIndex[Row]:= ReadInteger(Data, Null);
//    end;

  CopyData(fd, @Data);
  Control.LVItemData[Row] := cardinal(fd);
end; 

  case Mode of
    ITM_ADD:
      Row := Control.Count;
    ITM_INSERT, ITM_REPLACE:
    begin
      Row := ReadInteger(Data, Null);   
      if (Row > Control.Count - 1) then exit;
    end;
  end;

  case Mode of
    ITM_INSERT, ITM_REPLACE:
    begin
      Row := ReadInteger(Data, Null);   
      if (Row > Control.Count - 1) then exit;
    end
    else
      Row := Control.Count;    
  end;

  case Mode of
    ITM_REPLACE:
    begin
      Row := ReadInteger(Data, Null);   
      if (Row > Control.Count - 1) then exit;
    end
    ITM_INSERT:
      Row := ReadInteger(Data, Null);   
    else
      Row := Control.Count;    
  end;