NetPaint, работа с Socket-ми

[ИВэТэшка]

Добрый день! Помогите, пожалуйста, разобраться, в чем тут ошибка.
Суть программы в следующем, запускается сервер и клиент, на клиенте рисуем что-нибудь (TImage), на сервере тоже самое должно отобразиться.

Код клиента (отправляющая его часть):

procedure TForm1.btn2Click(Sender: TObject);
  var i,j: integer;
begin
  for i:=0 to img1.Width-1 do
    for j:=0 to img1.Height-1 do
      begin
        if img1.Canvas.Pixels[i,j] = clBlack then
          mas[i,j] := True;
      end;
  ClientSocket1.Socket.SendBuf(mas, SizeOf(mas));
end;

Код сервера:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var i,j: Integer;
begin
  Socket.ReceiveBuf(mas, SizeOf(mas));
  edt1.Text := IntToStr(SizeOf(mas));
  for i:=0 to img1.Width-1 do
  begin
    for j:=0 to img1.Height-1 do
      begin
        if mas[i,j] = True then
          img1.Canvas.Pixels[i,j] := clBlack;
      end;
  end;
end;

При работе с TImage 200х200 получаем:
Рисуем на клиенте:
1.bmp
Получаем на сервере:
2.bmp
При работе с TImage 80х80 на клиенте и сервере получаем (т.е. все правильно:-) ):
3.bmp

[Aliens_wolfs]

Попробуйте просто отправлять и грузить изображение на сервер:

procedure TForm1.btn2Click(Sender: TObject);
var
Size: integer;
begin
//Так отправлять
Size:= img1.Picture.Bitmap.Width * img1.Picture.Bitmap.Height;
ClientSocket1.Socket.SendBuf(Pointer(img1.Picture.Bitmap)^, size);
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
Size: integer;
begin
//Так принимать сразу загружать картинку
Socket.ReceiveBuf(Pointer(img1.Picture.Bitmap)^, Size);
edt1.Text := IntToStr(Size);
end;

В вашем примере ошибка может быть из за того что прием не всего изображения идет а частями, когда изображение большое нужно догружать все данные, тут нужно еще проверку делать на полный прием всего размера, а уже потом выводить результат и в моем примере нужно тоже делать провеку при большом изображение. И еще ошибка в том что идет наложение изображение на изображение, канву image нужно очищать перед приемом.
очистка канвы

img1.canvas.fillrect(img1.canvas.cliprect);

Поищите на этом форуме примеры по поводу передачи изображение по сети.