1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
var Stream: TMemoryStream; //oder nur TSream?
    cText: string;
    len: integer;
begin
 Stream:= TMemoryStream.Create;

 cText:= 'Test';
 Len := Length(cText);
 Stream.WriteBuffer(Len, SizeOf(Len));
 Stream.WriteBuffer(Pointer(cText)^, Len);

 showmessage(LoadStringFromStream(Stream)); //Hier habe ich schon min. 8 Funktionen ausprobiert...

 Stream.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  ss: TStringStream;
  s: String;
begin
  ss := TStringStream.Create;
  try
    ss.WriteString('dein string');
    s := ss.ReadString(ss.Size);
  finally
    ss.Free;
  end;