const
  szPluginName     = 'Plugin Example';

function PluginInit: PAnsiChar; export; stdcall;
var
  Buf: string;
begin
  try
    Buf := szPluginName;
    if Length(Buf)<>0 then
    begin
      GetMem(Result, Length(Buf)+1);
      lstrcpy(Result, @Buf[1]);
    end else
      Result := '';
  except
    Result := '';
  end;
end;