[icWasya]

Если для DLL, то для полной совместимости надо заменить String на AnsiString.

Код:

const
  szObjectName : AnsiString = 'Clipboard';
 
function irPlg_GetPluginName(szBuffer : PAnsiChar; var pnBufferSize : Integer) : Integer;
var
  nLength : Integer;
begin
  nLength := Length(szObjectName) * SizeOf(AnsiChar); // To support unicode and non unicode
  if pnBufferSize < nLength
    Then
      Begin
         pnBufferSize := nLength;
         Result := -1;
      End
    Else
      Begin
        FillChar(szBuffer,nLength,#0);
        StrCpy(szBuffer,PAnsiChar(szObjectName),nLength);
        Result := nLength;
      End;
end;