Record via Write- und Readbuffer

[Kalle_XXXX]

Hallo nochmal!
Ich versuche ein von mir erstelltes Record (Clientdaten und Textmeldung) via WriteBuffer an den idTCPServer zu schicken.
Auslesen mit ReadBuffer funktioniert aber ni ganz so.
Hier mein Record, welches auch soweit gefüllt wird:

Code:

type
   TConfigs = record
   ClientIP             : String;
   Nickname             : String;
   ServerName           : String;
   PortName             : Integer;
   Nachricht            : String;
   Nachricht_length     : integer;
end;

Client

Code:

procedure TFr_MainChat.SpeedButton2Click(Sender: TObject);
var
  Configs  :TConfigs;
begin
//Versenden
  if Komponents.IdTCPClient1.Connected = true then
  begin
     ShowMessage('True');
     Configs.Nickname     := edit_nick.text;
     Configs.Servername   := edit_server.text;
     Configs.PortName     := StrToInt(edit_port.text);
     Configs.ClientIP     := idIPWatch1.LocalIP;
     Configs.Nachricht    := edit_nachricht.text;
     Configs.Length       := Length(Configs.Nachricht);
     Komponents.IdTCPClient1.WriteBuffer(Configs,Sizeof(Configs));
  end
  else
  begin
    ShowMessage('Es besteht leider keine Verbindung zum Server');
  end;
end;

Server:

Code:

procedure TKomponents.IdTCPServer1Execute(AThread: TIdPeerThread);
var
   CB     :String;
   BuffSize :Integer;
   Configs  :TConfigs;
begin
         BuffSize :=  Athread.Connection.RecvBufferSize;
         Athread.Connection.ReadBuffer(Configs, BuffSize);
         ShowMessage(Configs.Servername);


end;

Würde mich freuen wenn jemand nen Plan hat!?