[Alegun]

Да проще на теги опираться

Код:

function prs(ds,vs,ts: string):string;
begin
delete(vs, 1, (pos(ds,vs)+length(ds))-1);
Result:= Copy(vs,1,Pos(ts,vs)-1);
end;

begin
a:= '<input type="hidden" id="referredby" name="referredby" value="';
z:= '" />';
str.Add('referredby=' + prs(a,site,z));
end;

результат в мемо

referredby=http://220-400-volt.96.lt/wp-admin/edit.php?post_type=product