diff --git a/components/orpheus/ovcabot0.pas b/components/orpheus/ovcabot0.pas
index 6826365b1..2bc48f4a5 100644
--- a/components/orpheus/ovcabot0.pas
+++ b/components/orpheus/ovcabot0.pas
@@ -134,10 +134,10 @@ begin
     '', '', SW_SHOWNORMAL) <= 32
 {$ELSE}
  {$IFDEF DARWIN}
-  if Shell('Open http://sourceforge.net/projects/tporpheus/') = 127
+  if fpSystem('Open http://sourceforge.net/projects/tporpheus/') = 127
  {$ELSE}
   if (GetBrowserPath = '') or
-     (Shell(GetBrowserPath + ' http://sourceforge.net/projects/tporpheus/') = 127)
+     (fpSystem(GetBrowserPath + ' http://sourceforge.net/projects/tporpheus/') = 127)
  {$ENDIF}
 {$ENDIF}
   then
@@ -156,10 +156,10 @@ begin
   SW_SHOWNORMAL) <= 32
 {$ELSE}
  {$IFDEF DARWIN}
-  if Shell('Open http://sourceforge.net/forum/forum.php?forum_id=241874') = 127 
+  if fpSystem('Open http://sourceforge.net/forum/forum.php?forum_id=241874') = 127 
  {$ELSE}
   if (GetBrowserPath = '') or
-     (Shell(GetBrowserPath + ' http://sourceforge.net/forum/forum.php?forum_id=241874') = 127) 
+     (fpSystem(GetBrowserPath + ' http://sourceforge.net/forum/forum.php?forum_id=241874') = 127) 
  {$ENDIF}
 {$ENDIF}
   then
@@ -178,10 +178,10 @@ begin
   SW_SHOWNORMAL) <= 32
 {$ELSE}
  {$IFDEF DARWIN}
-  if Shell('Open http://sourceforge.net/forum/forum.php?forum_id=241873') = 127 
+  if fpSystem('Open http://sourceforge.net/forum/forum.php?forum_id=241873') = 127 
  {$ELSE}
   if (GetBrowserPath = '') or
-     (Shell(GetBrowserPath + ' http://sourceforge.net/forum/forum.php?forum_id=241873') = 127) 
+     (fpSystem(GetBrowserPath + ' http://sourceforge.net/forum/forum.php?forum_id=241873') = 127) 
  {$ENDIF}
 {$ENDIF}
   then
diff --git a/components/orpheus/ovcurl.pas b/components/orpheus/ovcurl.pas
index 0ceb16ba0..c42c0abe3 100644
--- a/components/orpheus/ovcurl.pas
+++ b/components/orpheus/ovcurl.pas
@@ -178,11 +178,11 @@ begin
 begin
   if URL > '' then begin
  {$IFDEF DARWIN}
-    if Shell('Open ' + URL) = 127 then
+    if fpSystem('Open ' + URL) = 127 then
       MessageBeep(0);
  {$ELSE}
     if (GetBrowserPath = '') or 
-       (Shell(GetBrowserPath + ' ' + URL) = 127) then
+       (fpSystem(GetBrowserPath + ' ' + URL) = 127) then
       MessageBeep(0);
  {$ENDIF}
   end;