String in Stream speichern

[d1ng0d0gt0r]

Arrrrrrrrrrrrrrrrr.....

Folgender Code führt bei mir zu einem leeren String.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  Stream: TMemoryStream;
  S:      String;
  S_S:    String;
  N:      LongInt;
begin

S:= Edit1.Text;
N:= Length(S);

  if N > 0 then
  begin
    // Stream -> String  String -> Stream
    Stream:= TMemoryStream.Create;
    Stream.Write(N, SizeOf(N));
    Stream.Write(S[1], N);

    // Stream -> String
    Stream.Read(S_S[1], Length(S_S));
  end;

  MessageBox(0, pchar(S_S), 'title', MB_OK);

end;

Isch versteh des net!