String in Stream speichern

[d1ng0d0gt0r]

Jetzt haut er mir nen Error raus.

Delphi-Quellcode:

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

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

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

    //Stream -> String
    Stream.Position:= 0;
    Stream.Read(S_S[1], N);
  end;

  Stream.SaveToFile(ExtractFilePath(Paramstr(0))+'test.txt');

  if Client.Socket.SendStream(Stream) then
    MessageBox(0, pchar(S_S), 'title', MB_OK);

end;

Noch nie mit Pointern gearbeitet, ich lern Delphi seit 2 Wochen-.-