[ALexandr555]

хм я пока делаю лишь простую рисовку без вссяких прямых линий

Код:

  VScreen.Canvas.MoveTo(X, Y);
  ClientSocket1.Socket.SendText('movet¶'+IntToStr(X)+'='+IntToStr(Y));
PaintBox1Paint(nil);

при нажатии мышки на паинтбоксе

Код:

VScreen.Canvas.LineTo(X, Y);
      ClientSocket1.Socket.SendText('linet¶'+IntToStr(X)+'='+IntToStr(Y));
      PaintBox1Paint(nil);

это при ведении нажатой мышки по паинт бокусу, мы рисуем и отправляем человеку второму
и при получении такого пакета идет отрисовка вырезаются из него координаты и отрисовываем,
тоесть выясняется что это нажатие или ведение мышки, и рисуется
а и сам VScreen

Код:

  VScreen := TBitmap.Create;
  VScreen.Width:=PaintBox1.ClientWidth;
  VScreen.Height:=PaintBox1.ClientHeight;
  VScreen.Canvas.Pen.Color := clBlack;
  VScreen.Canvas.Pen.Width := 5;