Правильно будет один раз считать сообщение с клиента и потом уже сверять с условиями.
Код:
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
mes: string;
begin
mes:=AThread.Connection.ReadLn;
if mes='monitor.off' then ShowMessage('monitor.off');
if mes='monitor.on' then ShowMessage('monitor.on');
AThread.Connection.Disconnect;
end;