Ping Pong

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var data: string;
    ping: string;
    pingrep:string;
begin
  data := socket.receivetext;
  ping := copy(data, 1,4);
  pingrep := copy(data, 7, length(data));

  if ping = 'PING' then
  begin
    socket.sendtext ('PONG '+pingrep);
    memo1.lines.add ('*** PONG '+pingrep);
  end;


Burde det ikke virke? Det er en kode til at svare pong tilbage til servern når den Pinger en (IRC).
  Nogen gange virker det ikke, når den connecter til irc servern får den ikke ponget tilbage. Kan i hjælpe mig med en bedre kode der virker hver gang. :)