这段VB代码谁帮我翻译成DELPHI

Question

sub main
Dim WinFolder As New ShellWindows
Dim IEobj as Object
i = -1
For Each IEobj In WinFolder
i = i + 1Titles(i) = IEobj.LocationName
URLs(i) = IEobj.LocationURL
InnerText(i) = IEobj.document.body.innertext
Next

Answer 1

procedure Main;
var
  WinFolder:ShellWindows;
  IEobj:TObject;
begin
  i := -1;
  WinFolder := ShellWindows.Create; // 这个是啥，不晓得，估计是 浏览器吧。
  for i := 0 to ShellWindows.Count -1 do
  begin
    Titles[i] := IEobj.LocationName;
    URLs[i] := IEobj.LocationURL;
    InnerText[i] := IEobj.document.body.innertext;
// 函数外部有以下代码
// Titles,URLs,InnerText:TStringList;
//    Titles := TStringList.Create;
//    URLs := TStringList.Create;
//    InnerText := TStringList.Create;
  end;
end;