Pointer auf Record - Strings problematisch ?

[littleDave]

Versuch mal statt "GetMem" "New" zu benutzen

Delphi-Quellcode:

procedure TMainFormServer.TCPServerConnect(AContext: TIdContext); 
var NewClient: PClient; 
begin 
  New(NewClient);  // <-----

  NewClient.PeerIP      := AContext.Connection.Socket.Binding.PeerIP; 
  NewClient.Connected   := Now; 
  NewClient.RestString  := ''; 

  AContext.Data         := TObject(NewClient); 
end;