wie einen stream mit den socks senden und empfangen?!

[prinz_inzide]

hallo!
danke für eure antworten!
den chat guck ich mir gleich an, eben gins mal nicht (download wollte net starte..)
ich hab jetzt folgendes, was leider nicht funktioniert:

Delphi-Quellcode:

var
  sstream,rstream:tfilestream;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  sstream:=tfilestream.Create('c:\stats.jpg',fmopenread);
  client.Socket.SendStream(sstream);
end;

procedure TForm1.serverClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  rstream:=tfilestream.Create('stats1.jpg',fmcreate);
  socket.receivebuf(rstream,socket.ReceiveLength);
  rstream.Free;
end;

kann gut sein dass es komplett falsch ist..
bitte helft mir!

danke,danke!