Add(Length,8893866,161,280)
{
 link(onLength,12562543:doString,[])
 link(Str,11238683:Text,[])
}
Add(Button,3137315,112,280)
{
 Left=35
 Top=70
 link(onClick,8893866:doLength,[])
}
Add(FormatStr,12562543,210,280)
{
 DataCount=1
 Mask="Размер письма: %1 байт"
 link(onFString,3966121:doText,[])
}
Add(StrList,11238683,161,203)
{
}
Add(Label,3966121,259,280)
{
 Left=75
 Top=15
 Width=157
 Height=17
 Caption=""
}

  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]

 _Size := Length(list.Text);[/code]
в главный метод компонента, то сиё дополнение попадет во все программы не зависимо от того, нужно им знать размер письма или нет.