diff --git a/lcl/asyncprocess.pp b/lcl/asyncprocess.pp
index eafcd6bfe1..c586d95604 100644
--- a/lcl/asyncprocess.pp
+++ b/lcl/asyncprocess.pp
@@ -118,11 +118,6 @@ end;
 
 uses BaseUnix, TermIO;
 
-procedure Register;
-begin
-  RegisterComponents('System',[TProcessUTF8,TAsyncProcess]);
-end;
-
 function TAsyncProcess.GetNumBytesAvailable: dword;
 begin
   if not (poUsePipes in Options) then
@@ -260,4 +255,9 @@ begin
   inherited Execute;
 end;
 
+procedure Register;
+begin
+  RegisterComponents('System',[TProcessUTF8,TAsyncProcess]);
+end;
+
 end.