TIdCmdTCPServer: Wie funktioniert das?

[Angel4585]

HA! Jetz gehts

Ich hatte folgende Methode aufgerufen, wenn ich den Aufruf ausklammere gehts:

Delphi-Quellcode:

function TMyService.CheckProcessRunning:Integer;
var
  le : TListEnumerator;
  c : TIdContext;
begin
Result:=0;
le:=IdCmdTCPServer1.Contexts.LockList.GetEnumerator;

while le.moveNext do
  begin
  c:=TIdContext(le.Current);
  c.Connection.SendCmd('test');
  if c.Connection.LastCmdResult.NumericCode = 200 then inc(Result);
  end;
IdCmdTCPServer1.Contexts.UnlockList;
end;

Also wo hab ich hier den Fehler?