diff --git a/components/richmemo/win32/win32richmemo.pas b/components/richmemo/win32/win32richmemo.pas
index f2aa36464..2a50563ef 100644
--- a/components/richmemo/win32/win32richmemo.pas
+++ b/components/richmemo/win32/win32richmemo.pas
@@ -1639,7 +1639,11 @@ type
   end;
   PStreamText = ^TStreamText;
 
+{$IF FPC_FULLVERSION>=30301}
+function Read(dwCookie:DWORD_PTR; pbBuff:LPBYTE; cb:LONG; var pcb:LONG):DWORD; stdcall;
+{$ELSE}
 function Read(dwCookie:PDWORD; pbBuff:LPBYTE; cb:LONG; var pcb:LONG):DWORD; stdcall;
+{$ENDIF}
 var
   //p : PStreamText;
   b : string;
diff --git a/components/richmemo/win32/win32richmemoproc.pas b/components/richmemo/win32/win32richmemoproc.pas
index 416569aaa..e71b37223 100644
--- a/components/richmemo/win32/win32richmemoproc.pas
+++ b/components/richmemo/win32/win32richmemoproc.pas
@@ -758,7 +758,11 @@ type
     pfnCallback : EDITSTREAMCALLBACK;
   end;
   
+{$IF FPC_FULLVERSION>=30301}
+function RTFLoadCallback(dwCookie:DWORD_PTR; pbBuff:LPBYTE; cb:LONG; var pcb:LONG):DWORD; stdcall;
+{$ELSE}
 function RTFLoadCallback(dwCookie:PDWORD; pbBuff:LPBYTE; cb:LONG; var pcb:LONG):DWORD; stdcall;
+{$ENDIF}
 var
   s : TStream;  
 begin
@@ -782,7 +786,11 @@ begin
   Result := cbs.dwError = 0;
 end;
 
+{$IF FPC_FULLVERSION>=30301}
+function RTFSaveCallback(dwCookie:DWORD_PTR; pbBuff:LPBYTE; cb:LONG; var pcb:LONG):DWORD; stdcall;
+{$ELSE}
 function RTFSaveCallback(dwCookie:PDWORD; pbBuff:LPBYTE; cb:LONG; var pcb:LONG):DWORD; stdcall;
+{$ENDIF}
 var
   s : TStream;  
 begin