Problema con servidor TCP

[gallipi]

hola,
estoy haciendo un servidor TCP con componente indy para delphi y en principio me funciona bastente bien.
El problema que tengo es que cuando me llegan muchas peticiones rapidas por parte de un solo cliente al final me lanza un error y el programa deja de ejecutarse " Acces violaton at adress 0000000 ..." y no se a que es devido.
este es el trozo de codigo que se ejecuta cuando me llega una peticion por parte del cliente

Código Delphi [-]
procedure TModuleManager.tcpServerExecute(AThread: TIdPeerThread);
var
  mensaje : string;

begin
  try
   mensaje:=  AThread.Connection.ReadLn; // leer domando que me envian
   if mensaje<> ' ' then
     begin
       mensaje := mensaje + ',Lagun.dll';
       EjecutarTarea(Pchar(mensaje)); // que haga lo que tenga que hacer
     end;
  except
    raise exception.Create('Server');
  end;
end;