beliebige Datei in Stream speichern

[Evilboyz]

So, also im Moment sieht mein Code wie folgt aus:

Code:

procedure TForm1.ServerSocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var DataEnvelope : TStream;
      data :         file;
begin
     AssignFile(data, 'datei\test.exe');
     data.SaveToStream(DataEnvelope, dfBinary);
     closefile(data);
     Socket.SendStream(DataEnvelope);
     DataEnvelope.Free;
end;

Als Fehlermeldung bekomme ich in der Zeite, in der SaveToStream steht: "Record, Objekt oder Klassentyp erforderlich"