function PosSrc(S: String): String; var B, E: Integer; begin B:= Pos('SRC="', S)+5; E:= PosEx('"', S, B); Result:= Copy(S, B, E-B); end;