Dúvidas com serviço no windows ao executar comandos

Pessoal, fiz um serviço no windows e coloquei um ( IdTCPServer ) que fica instalada nas máquinas dos usuários aí quando me conecto com ao servidor usando o ( idTCPClient ) e mando uma mesagem de tipo : ´calc´ ele nao esta executando a comando abaixo. Mas ele recebe a mensagem pq toda vez q mando a mesagem a lupinha do windows trabalhando aparece mas nao executa o comando.


procedure TGoias.ChatServerExecute(AThread: TIdPeerThread);
var
Cmd: string;
Data: string;
begin
while AThread.Connection.Connected do
begin
Data :=AThread.Connection.ReadLn;
Cmd := Trim(Data);
if Cmd = ´calc´ then // executar a Caculadora
winexec(´c:\Windows\System32\calc.exe´,sw_shownormal);
end;
end;

Valeu