RecordToStream-StreamToRecord | Wo ist der Fehler

[SleepyMaster]

Ist gut! Hab ihn schon!!!

Delphi-Quellcode:

function RecordToStream(var input: TData): TStream;
var s:string;
begin
  SetLength(s,SizeOf(input));
  Move(input, s[1], SizeOf(input));
  Result:=TMemoryStream.Create;
  Result.Size:=0;
  Result.Position:=0;
  Result.WriteBuffer(s[1],Length(s)); //vorher: Result.WriteBuffer(s,Length(s));  
end;