procedure THIPOP3_Parse._work_doParse;
..............
     else
      begin
        _Message_Text := ';
        while i < list.Count do
         begin
           if list.Items[i] = ' then
            _Message_Text := _Message_Text + #13#10
           else _Message_Text := _Message_Text + list.Items[i] + #13#10;
           inc(i);
         end;
      end;
end;