String in Stream speichern

[d1ng0d0gt0r]

Moinsen,

Ich möchte einen String in einem Stream speichern. Dazu hab ich mir jetzt etliche Tutorials angesehen, doch irgendetwas mache ich falsch.

Folgenden Code den ich geschrieben habe, möchte ich verwenden um einen beliebigen String (S) in einem Stream (Stream) zu speichern.

Delphi-Quellcode:

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

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

  if N > 0 then
  begin
    Stream:= TStream.Create;
    Stream.Write(N, SizeOf(N));
    Stream.Write(S[1], N);
  end;
//...                            // Stream über Socket versenden.
Stream.Free;
end;

Spätestens bei "Stream.Write(N, SizeOf(N));" bringt er mir den Fehler:

Zitat:

Erste Gelegenheit für Exception bei $75B83843. Exception-Klasse EAbstractError mit Meldung 'Abstract Error'. Prozess Project1.exe (2368)

Gruß