procedure TScanThread.AddEvent; begin frmMain.lbChanges.Items.Add(EventLog); ShellExecute(Application.Handle, PChar('open'), PChar('PathToExecutable.exe'), Nil, Nil, SW_SHOW); end;