При написании команд таким способом, работает только первая команда в списке, т. е "/cmd"
В каком виде писать команды, чтобы работали все? Думаю суть вопроса ясна)
(Delphi7)

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
if Socket.ReceiveText = '/cmd' then ShowMessage('Тест');
if Socket.ReceiveText = '/screen' then Timer1.Enabled := True;
if Socket.ReceiveText = '/screenoff' then Timer1.Enabled := False;
end;

Решено.