Jak ma vypadat kod - o nejakem odsazovani jsi slysel? Nedivim se, ze se v tom nevyznas.

Access violation ti to pise, protoze pristupujes k nejakemu objektu, ktery neexistuje.
V Delphi existuje debuger, breakpointy, trasovani kodu...
Protoze vidime pouze kousek kodu, neni mozne rict, kde jsi co provedl.

Priklad naformátovaného kódu:

//determinování názvu obrázku -
if s[I]+s[I+1]+s[I+2] = 'src' then
begin
  Y:=0;
  //determinování řetězce odkazu
  if s[I+Y+5]='"' then
    repeat
      subs:=subs+s[I+Y+5+1];
      sub1:=s[I+Y+5+2];
      inc(Y);
    until sub1='"';
    ...
end;

K access violation muze dochaet take v pripade, kdy pristupujes k indexu retezce, ktery neexistuje.

Zkus nahradit nektere konstrukce:

if s[I]+s[I+1]+s[I+2] = 'src' then

nahrad za:

if AnsiSameText(Copy(s, i, 3), 'src') then

Tim budes mit zajisteno, ze nebude dochazet k cybnemu indexovani retezce a soucasne zajistis i velikost tagu. nebudes muset osetrovat 'src', 'Src', 'SRC' atd.