استفسار في دوال داخلها لوب

[Agmcz]

السلام عليكم ورحمة الله وبركاته
أما بعد قمت بكتابة هده الدوال لكن توقفت بسسب مشكل
في دالة DLoop تعطيني نتجية دورة واحدة وتتوقف
بإنتضار ردودكم

PHP كود :

function DLoop(S: string): string;
var
  ls: TStringList;
  i, p: Integer;
  data: string;
begin
  ls := TStringList.Create;
  ls.Text := S;
  begin
    for i := 0 to ls.Count -1 do
    begin
      p := Pos('/">', ls.Strings[i]);
      data := Copy(ls.Strings[i], p+3, Length(ls.Strings[i])-p);
      Result := data;
   end;
 end;
end;

function Results(S: string): string;
begin
  Result := DLoop(S);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.Text := Results(Memo1.Text);
end;