[NumLock]

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
var
  s: String;
  i: Integer;
begin
  s:='<iframe style="overflow: hidden; border: 0pt none; width: 720px; height: 394px;" src="http://stagevu.com/embed?width=720&amp;height=338&amp;background=000&amp;uid=izrywoluhsxd" scrolling="no"></iframe> <br><br><br></div>';
  i:=Pos('src="', s);
  if i>0 then
  begin
    s:=Copy(s, i+5, Length(s));
    i:=Pos('"', s);
    if i>0 then s:=Copy(s, 1, i-1);
    s:=StringReplace(s, '&amp;', '&', [rfReplaceAll, rfIgnoreCase]);
    Memo1.Lines.Add(s);
  end else Memo1.Lines.Add('no src');
end;