Untitled

THackDataSource = class(TDataSource)
end;
...

vaDataLinks := THackDataSource(ipDataSources[I]).DataLinks;
 for vaDataLink in vaDataLinks do
    begin
        if vaDataLink is TFieldDataLink then
            begin
                vaField := TFieldDataLink(vaDataLink).Field;
                vaControl := TFieldDataLink(vaDataLink).Control;
            end;

        if Assigned(vaControl) and Assigned(vaField) and (vaControl is TControl) then
            begin
                plEncontrarLabel(vaField, TControl(vaControl));
            end;
    end;