1:
2:
3:
4:
5:

var Stream: TFileStream; 
begin 
  Stream:=TFileStream.Create('C:\Hallo.bmp',fmOpenRead); 
  ServerSocket.Socket.SendStream(Stream) 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TLanChat_Form.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
  VAR Stream: TFileStream;
      stream:TWinSocketStream;
      Buffer:TStream;

begin
   stream := TWinSocketStream.Create(socket,1000);
   stream.Read(Buffer,stream.Size);
   stream.Free;
   {weiterer Code}
end;