#67 typecast in for .. in .. do

[Error]

would love to see this work :-)

var
    objs: TFPList;
begin
for Pointer(obj) in objs do
begin
end;
end.