TClientSocket i Stream

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  Stream: TStream;
  nReceived: Integer;
  Buffer: array [0..9999] of Char;
begin
  Stream := TMemoryStream.Create;
  try
    while True do begin
      nReceived := Socket.ReceiveBuf (Buffer, sizeof (Buffer));
      if nReceived <= 0 then
        Break
      else
        Stream.Write (Buffer, nReceived);
        Sleep (200);
      end;

    Stream.Position := 0;
    Worker.Picture.Bitmap.LoadFromStream(Stream);
  finally
    Stream.Free;
    Screen.Cursor := crDefault;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TStream;
  q: Integer;
begin
  for q := 0 to ServerSocket1.Socket.ActiveConnections -1 do begin
    Stream := TMemoryStream.Create;
    Stream.Size := 5000;
    //Stream.Position := 0; - Oba sposoby sprawdzone
    Image1.Picture.Bitmap.SaveToStream(Stream);
    //Stream.Position := 0;
    ServerSocket1.Socket.Connections[q].SendBuf(Stream, Stream.Size);
    Stream.Free;
  end;
end;

Image1.Picture.Bitmap.SaveToStream(Stream);

Stream := TMemoryStream.Create;
Stream.Size := Socket.RecieveSize;
Socket.ReceiveBuf (Stream, Socket.RecieveSize);

Stream := TMemoryStream.Create;
Stream.Size := Socket.RecieveSize;
Socket.ReceiveBuf (Stream, Socket.RecieveSize);

var
 M: TMemoryStream;
 B: TBitmap; // powiedzmy ze to juz istnieje
begin
 M := TMemoryStream.Create;
 M.Possition := 0; // !!!
 B.SaveToStream(M);
 M.Possition := 0; // !!!
 client.Socket.SendBuf(M, M.Size);

..... onRead......
var
 M: TMemoryStream;
 B: TBitmap; // powiedzmy ze to nie istnieje :P
begin
 M := TMemoryStream.Create;
 B := TBitmap.Create;
 Socket.ReceiveBuf(M, Socket.ReceiveLength)
 M.Possition := 0; // !!!
 B.LoadFromStream(M);

var
  MStrm: TMemoryStream;
  MSize: Integer;
  Receiving: Boolean;

procedure TForm1.Button1Click(Sender: TObject);
var
  Size, I: Integer;
  Ms : TMemoryStream;
  Buf: Array[0..1023] of Byte;
begin
  Ms := TMemoryStream.Create;
  try
    Image1.Picture.Bitmap.SaveToStream(Ms);
    with ServerSocket1.Socket do
      for I := 0 to ActiveConnections -1 do
      begin
        Size := Ms.Size;
        Ms.Position := 0;
        Connections[I].SendBuf(Size, SizeOf(Size));
        while Ms.Position <> Ms.Size do
        begin
          Sleep(10); 
          Application.ProcessMessages;
          Size := Ms.Read(Buf, SizeOf(Buf));
          Connections[I].SendBuf(Buf, Size);
        end;
      end;
  finally
    Ms.Free;
  end;
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  Str : String;
begin
  Application.ProcessMessages;
  Str := Socket.ReceiveText;
  if not Receiving then
  begin
    MStrm := TMemoryStream.Create;
    Move(Str[1], MSize, 4);
    Delete(Str, 1, 4);
    Receiving := True;
  end;
  try
    MStrm.Write(Str[1], Length(Str));
    if MStrm.Size = MSize then
    begin
      MStrm.Position := 0;
      Image2.Picture.Bitmap.LoadFromStream(MStrm);
      MStrm.Free;
      Receiving := False;
    end;
  except
    MStrm.Free;
    Receiving := False;
  end;
end;

type
  TStreamHeader = record
    Size: Integer;
  end;

var
  StreamSize: Integer;
  RcvStream : TMemoryStream;
  StreamTransfer: Boolean;

var
  Bitmap: TBitmap;
  Ms : TMemoryStream;
  Buffer: array[0..8191] of Byte;
  Sent, Readed: Integer;
  StreamHeader: TStreamHeader;
begin
  Ms := TMemoryStream.Create;
  Ms.Position := 0;
  //Zapisuje se cos do strumienia
  
  //Wysylam naglowek
  StreamHeader.Size := Ms.Size;
  ServerSocket.Socket.Connections[0].SendBuf(StreamHeader, SizeOf(StreamHeader));

  //Wysylam pakiety
  Sent := 0;
  Ms.Position := 0;
  //dopuki nie zostanie wyslany caly stream
  while Sent < Ms.Size do begin
    Readed := Ms.Read(Buffer, SizeOf(Buffer));
    ServerSocket.Socket.Connections[0].SendBuf(Buffer, Readed);
    Sent := Sent + Readed;
    Readed := 0;
  end;
  Ms.Free;
  Bitmap.Free;
end;

function TMainForm.SaveBuffer(var Buffer: array of Byte; Size: Integer): Boolean;
begin
  //Sleep(100); - bez tego dziala w miare normalnie, choc jak cos sie zacznie robic na kompie, zaczyna sie sypac
  RcvStream.Write(Buffer, Size);
  StatusLabel.Caption := IntToStr(RcvStream.Size) + '/' + inttoStr(StreamSize);
  Result := True;
end;

procedure TMainForm.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  Downloaded: Integer;
  Buffer: array[0..8191] of Byte;
  StreamHeader: TStreamHeader;
begin
  //Jesli nie jest pobierany stream
  if not StreamTransfer then begin
    Socket.ReceiveBuf(StreamHeader, SizeOf(StreamHeader));
    RcvStream := TMemoryStream.Create;
    RcvStream.Position := 0;
    StreamSize := StreamHeader.Size;
    StreamTransfer := True;
    Exit;
  end;
  //Zapisywanie bufora
  Downloaded := Socket.ReceiveBuf(Buffer, SizeOf(Buffer)-1);
  if SaveBuffer(Buffer, Downloaded) then begin
    if RcvStream.Size >= StreamSize then begin
    //Tu se cos z tym robie...
    end;
  end;
end;

Jpeg.loadFromStream(imgstream);
jpeg.savetofile('C:\tmp.jpg');
image1.picture.loadfromfile('C:\tmp.jpg');

var
  Stream: TMemoryStream;
begin
   Stream := TMemoryStream.Create;
   try
     Stream.SetSize(Socket.ReceiveLength);
     Socket.ReceiveBuf(Stream.Memory^, Stream.Size);
     // cos tam...
   finally
     Stream.Free;
   end;
end;

 M.Possition := 0; // !!!
 B.SaveToStream(M);
 M.Possition := 0; // !!!