Почему каракули?

[bakanaev]

Нашел в интернете данный код

var
  Form1: TForm1;
  TheMStream : TMemoryStream;
  Zero : char;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   TheMStream := TMemoryStream.Create;
  TheMStream.LoadFromFile('C:\SoftUpdateLog.txt');
  TheMStream.Seek(0, soFromEnd);
//Буфер завершается нулём!
  Zero := #0;
  TheMStream.Write(Zero, 1);
  TheMStream.Seek(0, soFromBeginning);
  Memo1.SetSelTextBuf(TheMStream.Memory);
  TheMStream.Free;
end;

Почему вместо нормальных слов выдается такое ?

䑛睯汮慯⁤潔汯删潯㉴㄰ⴲⴳ〳㐬㔺㨴㤲൝㈊㄰ⴲⴳ〳㐬㔺㨴㤲㴠㴽㴽㴽㴽㴽㴽㴽㴽㴽㴽㴽㴽㴽䈽䝅

[Кольша]

memo1.lines.LoadFromFile('C:\SoftUpdateLog.txt');

и все,да и вообще к работе с сетью вообще никак,никаким!

[bakanaev]

Сообщение от Кольша

memo1.lines.LoadFromFile('C:\SoftUpdateLog.txt');

и все,да и вообще к работе с сетью вообще никак,никаким!

Спасибо, по поводу работы с сетью, я заметил что написал не в том разделе только после того как опубликовал , прошу модераторов перенести в соответствующий раздел