PDF Creator and Delphi

[durban]

This code is not working ? Can you help me ? Thanks
The objective is to access to all the objects in the page with Delphi.

Tanks
Didier

var
i : Integer;
Tab : OleVariant;
Objet : OleVariant;
begin
pdf.ReportState:=acReportStateDesign;
Tab:=pdf.ObjectAttribute['Pages[1]','Objects'];
// showmessage(inttostr(VarArrayLowBound(Tab,1)));
// showmessage(inttostr(VarArrayHighBound(Tab,1)));
for i := VarArrayLowBound(Tab,1) to VarArrayHighBound(Tab,1) do
begin
Objet:=Tab;
// here an error occur
showmessage(Objet.Attribute('Name'));
end;
end;

[durban]

Thanks, i just find the bug :

showmessage(Objet.Attribute('Name'));

=

showmessage(Objet.Attribute['Name']);

Thanks again
Didier