try
  timeout(20000, ExcelÖffnen);
except
  on E ETimeoutException
  begin
    E.Message := 'Excel reagiert nicht mehr';
    raise;
  end;
  on E Exception
    raise;
end;