diff --git a/source/uCEFOLEDragAndDrop.pas b/source/uCEFOLEDragAndDrop.pas
index fffa8c4c..13fa51fc 100644
--- a/source/uCEFOLEDragAndDrop.pas
+++ b/source/uCEFOLEDragAndDrop.pas
@@ -136,7 +136,7 @@ type
       function dAdvise(const FormatEtc: TFormatEtc; advf: LongInt; const advsink: IAdviseSink; out dwConnection: LongInt): HRESULT; stdcall;
       function dUnadvise(dwConnection: LongInt): HRESULT; stdcall;
       {$ELSE}
-      function SetData(const pformatetc: FORMATETC; {$IF FPC_FULLVERSION >= 30200}var{$ELSE}const{$ENDIF} medium: STGMEDIUM; FRelease: BOOL): HRESULT; stdcall;
+      function SetData(const pformatetc: FORMATETC; const medium: STGMEDIUM; FRelease: BOOL): HRESULT; stdcall;
       function EnumFormatEtc(dwDirection: DWORD; out aEnumFormatEtc: IENUMFORMATETC): HRESULT; stdcall;
       function DAdvise(const formatetc: FORMATETC; advf: DWORD; const AdvSink: IAdviseSink; out dwConnection: DWORD): HRESULT; stdcall;
       function DUnadvise(dwconnection: DWORD): HRESULT; stdcall;
@@ -661,7 +661,7 @@ function TOLEDataObject.SetData
 {$IFNDEF FPC}
   (const FormatEtc: TFormatEtc; var Medium: TStgMedium; fRelease: Bool): HRESULT; stdcall;
 {$ELSE}
-  (const pformatetc: FORMATETC; {$IF FPC_FULLVERSION >= 30200}var{$ELSE}const{$ENDIF} medium: STGMEDIUM; FRelease: BOOL): HRESULT; stdcall;
+  (const pformatetc: FORMATETC; const medium: STGMEDIUM; FRelease: BOOL): HRESULT; stdcall;
 {$ENDIF}
 begin
   Result := E_NOTIMPL;