procedure GetPluginCaption(var Caption: PChar; var CaptionLength: Integer); stdcall;
var s : string;
begin
//s := IniGSL(0, 'Lended CD''s');
s := 'Lended CD''s';
CaptionLength := Length(s);
GetMem(Caption, CaptionLength +1 );
StrPCopy(Caption, s );
end;


////////////


    p : PChar;
    plen : integer;

        GetPluginCaption(p, plen);
        item.Caption := p;
        FreeMem(p, plen+1);