procedure GetPluginCaption(Caption: PChar; CaptionLength: Integer); stdcall;
var s : string;
    l : integer;
begin
//s := IniGSL(0, 'Lended CD''s');
s := 'Lended CD''s';
if Length(s) < CaptionLength then l := Length(s)
                             else l := CaptionLength;
CopyMemory(Caption, PChar(s), l);
PByte(DWord(Caption) + l)^ := 0;
end;


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


    m : pointer;

        GetMem(m, CCAPTIONLEN);
        GetPluginCaption(m, CCAPTIONLEN);
        item.Caption := PChar(m);
        FreeMem(m, CCAPTIONLEN);