[lmikle]

Ну, если по простому, то вот тут добавь запуск:

Код:

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