estoy en lo mismo que vos.. yo hice este codigo que no funciona pero supuestamente tendria que funcionar, a ver si alguien lo mejora...
Código Delphi
[-]procedure onreaddelserversocket ( ..parametros..);
var
Stream: TMemoryStream;
Size: Integer;
begin
Stream:= TMemoryStream.Create;
Size:= Socket.ReciveLength;
Socket.ReciveBuf(Stream, Size);
Image1.Picture.Bitmap.LoadFromStream(Stream);
Stream.Free;
end;