Streams - negativen Wert mit Write schreiben???

[Jens Schumann]

Hallo,
das speichert den Wert aus einem TSpinEdit korrekt in einen TMemoryStream.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  mStream : TMemoryStream;
  Value   : SmallInt;
begin
  mStream:=TMemoryStream.Create;
  Try
    Value:=SpinEdit1.Value;
    mStream.Write(Value,SizeOf(SmallInt));
    mStream.SaveToFile('d:\test.bin');
  Finally
    mStream.Free;
    end;
end;

Wenn der angezeigte Wert im TSpinEdit -10 ist, steht in der Datei (betrachtet mit einem HexEditor) F6FF. Wie es sein soll.