[lmikle]

Код:

const
  szObjectName : String = 'Clipboard';

function irPlg_GetPluginName(szBuffer : PChar; var pnBufferSize : Integer) : Integer;
var
  nLength : Integer;
begin
  nLength := Length(szObjectName) * SizeOf(Char); // To support unicode and non unicode
  if pnBufferSize < nLength
    Then
      Begin
         pnBufferSize := nLength;
         Result := -1;
      End
    Else
      Begin
        FillChar(szBuffer,pnBufferSize,#0);
        StrCopy(szBuffer,PCHAR(szObjectName));
        Result := nLength;
      End;
end;

Как-то так, если не напутал с параметрами FillChar и StrCpy - проверь по документации.