IcmpSendEcho unterbricht mein Programm?

[alfold]

Ich hoffe es wird nicht peinlich.
im Main

Delphi-Quellcode:

if UncPath <> '' then
begin
        tmpPath:=  ExtractFileName(ExtractFiledir(ExtractFiledir(ExcludeTrailingPathDelimiter(UncPath))));
        if tmpPath <> '' then
        begin
           PingThread:= TPingThread.Create(tmpPath);
           PingHndl:= PingThread.Handle;
           PingThread.FreeOnTerminate := False;
           PingThread.Resume;
        end;

end;

und hier der Thread

Delphi-Quellcode:

unit PingThread;

interface
uses
  Windows, Classes, SysUtils, PingTest;

type
  TPingThread = class(TThread)
  private

    afHostName: string;
    aPing: Boolean;

    procedure UpdateStaus;
    procedure Finished;
    procedure Abort;

  protected
      procedure Execute; override;
      procedure GetPing();
  public
    constructor Create(FHostname: string);

  end;

implementation

uses
   MxMain;

constructor TPingThread.Create(fHostname: string);
begin
        inherited create(False);
        priority:= tpTimeCritical;
        FreeonTerminate:= False;
        afHostName:= FHostname;
       
end;

procedure TPingThread.Abort;
begin
    MxPlayer.Abort;
end;

procedure TPingThread.Execute;
begin
   while not Terminated do
   begin
        GetPing();
        Sleep(1000);
   end;
end;

procedure TPingThread.Finished;
begin
    MxPlayer.Finished;
end;

procedure TPingThread.UpdateStaus;
begin
    if self.Terminated then
    begin
        Synchronize(Abort);
        Exit;
    end;
    MxPlayer.UpdateStatus(aPing);
end;

procedure TPingThread.GetPing();
begin
    if Self.Terminated then
    begin
        Synchronize(Abort);
        Exit;
    end;
    aPing:= Ping(afHostName);
    Synchronize(UpdateStaus);
end;

end.

Schaun wir mal wo ich mist gebaut habe!

Gruß alfold