list.Text := ReadString(_Data,_data_MailText,');[/code]
это
  _Size := Length(list.Text);[/code]

после
    _Date:string;[/code]
это
    _Size:integer;[/code]

после
    procedure _var_Attach(var _Data:TData; Index:word);[/code]
вот это
    procedure _var_Size(var _Data:TData; Index:word);[/code]

внизу
procedure THIPOP3_Parse._var_Size;
begin
  dtInteger(_Data,_Size);
end;

и наконец в ИНИ:
*Size=Содержит размер письма|3|int[/code]