Namen erscheinen gehen aber nicht weg

[luckys41]

Soweit so gut.

Server :

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var i:Integer;
begin
  with ServerSocket1 Do
  begin
    for i:=0 to Socket.ActiveConnections Do
    begin
      Socket.SendText('PING');
    end;
  end;
end;

Client :

Delphi-Quellcode:

  if str = 'Ping' then
   begin Socket.SendText('PONG');
   end else
   begin
   Socket.SendText('Off');
   end;

Und wie kann ich jetzt die Nachricht Off verarbeiten beim Server?