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

procedure TForm1.Timer1Timer(Sender: TObject);
var
stream:tstream;
begin
  MakeScreenShot(Image1.Picture.Bitmap);
  Image1.Repaint;
  Stream := TMemoryStream.Create;
  Stream.Position := 0;
  image1.Picture.Graphic.SaveToStream(stream);
  client.Socket.SendStream(stream);
  stream.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.serverClientWrite(Sender: TObject;
  Socket: TCustomWinSocket);
var
stream:tstream;
Buffer: array of Byte;
Len: Int64;
begin
Stream := TMemoryStream.Create;
Len := Socket.ReceiveLength; //enthält die größe des zu empfangenden buffer
  SetLength(Buffer, Len);
  try
    Len := Socket.ReceiveBuf(Buffer[0], Len);
    if Len > 0 then
      Stream.Write(Buffer[0], Len);
  finally
    SetLength(Buffer, 0);
    image1.Picture.Graphic.LoadFromStream(stream);
    Image1.Repaint;
    stream.Free;
  end;
end;