Delphi 向后读取保存到StringList中的文件内容

我可以读取加载到StringList中的文件，但之后我想反转其内容，将其向后复制到第二个StringList。我需要帮助向后填写第二个字符串列表

procedure TForm1.btnsteClick(Sender: TObject);
 var
   Lista01, Lista02 : TStringList;
   i, NumeroLinhas:Integer;
   UltimaLinha :string;
begin

   // Create the temporary StringList
   Lista01 := TStringList.Create;
   Lista02 := TStringList.Create;

   // Load the content of the input file
   Lista01.LoadFromFile('C:\entrada.txt');

  try
     // Loop through the StringList
     for i:=0 to Lista01.Count -1 do
      begin
        // Show the content of the line
        //ShowMessage('linha ' + IntToStr(i) + ' é ' + Lista01[i]);
        Lista01[i] := Lista01[i];
       end;

       // Retrieve the number of lines
       NumeroLinhas := Lista01.Count;
       // Retrieve last line
       UltimaLinha  := Lista01[NumeroLinhas -1];

     for i:=0 to Lista01.Count -1 do
      begin
        // I want to copy backwards Lista01 into List02
        // Lista02[i] := "";

      end;

        // Save on file the modifications
        Lista01.SaveToFile('C:\saida1.txt');
        Lista02.SaveToFile('C:\saida2.txt');

       finally
         // Release memory
       FreeAndNil(Lista01);
       FreeAndNil(Lista02);
       ShowMessage('Sic');
   end;

end;

---

这段代码将执行您正在寻找的操作，以相反的顺序用Lista01的内容填充Lista02

for i := Lista01.Count - 1 downto 0 do begin
  Lista02.Add(Lista01[i]);
end;

---

@沃伦普，这不是家庭作业，我只是在代码方面遇到了麻烦，更谦虚一点。很遗憾你回答了一个如此不清楚的问题，对未来的读者毫无用处。你做到了，所以海报没有理由回来，并通过张贴你的答案来改进它。羞耻。如果葡萄牙语版本是清晰的，那么用户应该在葡萄牙语堆栈溢出上发布它。对于那些不懂葡萄牙语或不懂葡萄牙语的人来说，这并不十分清楚。这是一个英语网站，将来来到这里的英语用户需要清楚这个问题。好的，如果你可以重写这个问题，进行倒计时循环，或者“使用逆序列表反转列表”或者其他什么，那就可以了。