Problem z zapisaem TmemoryStream do String

Witam.
Mam problem z zapisem TMemoryStream do String'u a mianowicie
robię tak

Buffer:='';
MS.Read(Buffer,SizeOf(Buffer));
i później jak dam np ShowMessage(Buffer);

to mi wyświetla tylko 4 znaki (w strumieniu MS przechowuję obrazek JPEG) i są inne niż w pliku który zapisałem na dysku

MS.SaveToFile('C:\A.JPG');

Nie co jest nie tak, jak to wytłumaczyć ?
W takim przykładzie wszystko normalnie działa...

var
  strumien : TMemoryStream;
  txt : string; // Będziemy potrzebować tej zmiennej - przechowuje ona tekst

begin

strumien := TMemoryStream.Create;

txt := 'Ble, ble, ble - zawartość strumienia';
strumien.Write(txt,SizeOf(txt));
strumien.Position := 0;
txt := '';

strumien.Read(txt,SizeOf(txt));

ShowMessage(txt);
strumien.Free;

 

var
  strumien : TMemoryStream;
  txt : string; // Będziemy potrzebować tej zmiennej - przechowuje ona tekst
 
begin
 
strumien := TMemoryStream.Create;
 
txt := 'Ble, ble, ble - zawartość strumienia';
strumien.Write(txt[1], Length(txt));
strumien.Position := 0;
txt := '';

SetLength(txt, strumien.Size); 
strumien.Read(txt[1], strumien.Size);
 
ShowMessage(txt);
strumien.Free;

poczytaj czym się różni length od sizeof

Lub tak:

  Strumien:=TMemoryStream.Create;

  txt:='Ble, ble, ble - zawartość strumienia';
  Strumien.Write(PChar(txt)^,Length(txt)+1);
  txt := '';

  Txt:=StrPas(Strumien.Memory);

  ShowMessage(txt);

  Strumien.Free;