procedure TConnectPHP.Execute;
var Msg: TMsg;
begin
  
  MyTimer := TTimer.Create(nil);
  MyTimer.Enabled := True;
  MyTimer.Interval := 10000;
  MyTimer.OnTimer := TimerEvent;


  while not Terminated do
  begin

    while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
    begin
    
      if Msg.Message <> WM_QUIT then // bekommt ein Thread vermutlich nie, aber gut
      begin

        TranslateMessage(Msg);
        DispatchMessage(Msg);

      end;
  
    end;

  end;


  try MyTimer.Free; except end;

end;