Program New const TestItem 40072035 var TClilocRec TClilocItemRec Inte

Program New;

const
    TestItem = $40072035;

var
    a : TClilocRec;
    b : TClilocItemRec;
    c : Integer; 
    d : Integer;
begin           
    a := GetToolTipRec(TestItem);
    for c := 0 to Length(a.Items) - 1 do
    begin
        b := a.Items[c];
        AddToSystemJournal('ClilocID : ' +IntToStr(b.ClilocID)); 
        AddToSystemJournal('Text : ' + GetClilocByID(b.ClilocID));
        AddToSystemJournal('Params : ');
        for d := 0 to Length(b.Params) - 1 do
        begin     
            AddToSystemJournal('Param ' + IntToStr(d) + ' : ' + b.Params[d]);        
        end;
    end;
    
 //Body of Script
end.