Index: components/lazutils/utf8process.pp
===================================================================
--- components/lazutils/utf8process.pp	(revision 64001)
+++ components/lazutils/utf8process.pp	(working copy)
@@ -560,8 +560,39 @@
 
 { TProcessUTF8 }
 
+{$if fpc_fullversion > 30200}
 procedure TProcessUTF8.SetProcessHandle(aProcessHandle: THandle);
 var
+  P: PHandle;
+begin
+  P := @Self.ProcessHandle;
+  P^ := aProcessHandle;
+  if aProcessHandle<>ProcessHandle then
+    raise Exception.Create('TProcessUTF8.SetProcessHandle failed');
+end;
+
+procedure TProcessUTF8.SetThreadHandle(aThreadHandle: THandle);
+var
+  P: PHandle;
+begin
+  P := @Self.ThreadHandle;
+  P^ := aThreadHandle;
+  if aThreadHandle<>ThreadHandle then
+    raise Exception.Create('TProcessUTF8.SetThreadHandle failed');
+end;
+
+procedure TProcessUTF8.SetProcessID(aProcessID: Integer);
+var
+  P: PInteger;
+begin
+  P := @Self.ProcessID;
+  P^ := aProcessID;
+  if aProcessID<>ProcessID then
+    raise Exception.Create('TProcessUTF8.SetProcessID failed');
+end;
+{$else}
+procedure TProcessUTF8.SetProcessHandle(aProcessHandle: THandle);
+var
   o: TProcessClassTemplate;
 begin
   o:=TProcessClassTemplate.Create(nil);
@@ -592,6 +623,7 @@
     raise Exception.Create('TProcessUTF8.SetProcessID failed');
   o.Free;
 end;
+{$endif}
 
 procedure TProcessUTF8.Execute;
 Var