OnExeute geht nicht

[thetrue]

moin,

bei mir geht OnExeute Event nicht :(

hier der code von den indy Server:

Delphi-Quellcode:

...
{///////////////////////////:::::::: O N   C O N N E C T::::::///////////////////////}
procedure Tmain.serverConnect(AThread: TIdPeerThread);
begin
  tmpthread := AThread;
  timer.Enabled := true;
end;
{///////////////////////////:::::::: O N   D I C O N N E C T::::::///////////////////////}
procedure Tmain.serverDisconnect(AThread: TIdPeerThread);
var
  i: Integer;
begin
for i:=0 to 255 do
  begin
    if Clients[i] = AThread then
      begin
        main.MDIChildren[Cwin[i]].Free;
        exit;
      end;
  end;
end;
...
procedure Tmain.serverExecute(AThread: TIdPeerThread);
var
  i: Integer;
begin
ShowMessage('lese1:'+Athread.Connection.ReadString(512));
for i:=0 to 255 do
  begin
    if Clients[i] = AThread then
      begin
        ShowMessage('lese2:'+Athread.Connection.ReadString(512));
        Tserv(main.MDIChildren[Cwin[i]]).txt.Text := Tserv(main.MDIChildren[Cwin[i]]).txt.Text+Athread.Connection.ReadString(512);
        exit;
      end;
  end;
end;

"ShowMessage('lese1:'+Athread.Connection.ReadStrin g(512));" wir nicht mal ausgeführt ;) Warum?