function delphi to VC. parsing ID: ava, photos, records

the desired functionality of parsing data VC ID:
Avatar pulsatile,
photos(first and random),
the writing on the wall(first or random),

Need a stable implementation of parsing paths to the data above with comments in the code
I mean it