stream per TWinsocket

[glkgereon]

hi, ich möchte eine datei einlesen und per twinsocket versenden

dazu wollte ich tstream nehmen

also ich hab das bisher so in etwa:
(buftype gibt an was kommt)

Delphi-Quellcode:

if ClientSocket.RecieveBuf(temp, sizeof(temp))<>-1
then begin
     if buftype = liConnections //sendlist
     then Recievelist
     else if buftype = liFileList
     then recievefilelist
     else if buftype = liFile //sendfile
     then recievefile;

aber was muss ich jetzt in recievefile reinschreiben?

so in etwa geht das ja mit senden:

Delphi-Quellcode:

str:TStream;
begin
str:=TStream.Create;
str.LoadFromFile(Dateiname);
ServerSocket.Socket.SendBuf(str);

und dann beim empfangen das von oben

das problem: tstream hat kein loadfromfile/savetofile..

oder hat einer einen anderen vorschlag (ausser tstream)?
weiss einer wie ich mit tstream umgehe?
versende ich das so, wie oben angegeben?