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

type TMyRec=Record
      Name       :String[55];
      Vorname    :String[55];
      HausNr     :Integer;
      Male       :Boolean;
      TelefonNr  :Integer;
      Ort        :String[55];
      From       :String[50];
      FromAdress :String[15];
      Gesendet   :TDateTime;
      Empfangen  :TDateTime;
      myBitMap   :TBitMap;
     end;

var MyRec : TMyRec;					

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

  with MyRec do begin
    Name         := 'Müller';
    Vorname      := 'Elfriede';
    HausNr       := 13;
    Male         := false;
    TelefonNr    := 999888555;
    Ort          := 'Irgendwo';
    Gesendet     := Now;
    Empfangen    := StrToTime('00:00:00');
    myBitMap     := Image1.Picture.Bitmap;//Dort ist irgendein Bild geladen
  end;

  for i := 0 to ServerSocket1.Socket.ActiveConnections-1
   do ServerSocket1.Socket.Connections[i].SendBuf(MyRec,SizeOf(MyRec));					

1:
2:
3:
4:
5:
6:

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
  Socket.ReceiveBuf(MyRec,SizeOf(MyRec));
  Image1.Picture.Bitmap := MyRec.myBitMap;//Zugriffsverletzung

end;					

1:
2:
3:
4:
5:

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
  Socket.ReceiveBuf(MyRec,SizeOf(MyRec));
  Image1.Picture.Bitmap := MyRec.myBitMap;//Zugriffsverletzung (klar, darum geht´s jetzt aber nicht)
end;