delphi 导出TXT文本后怎么在每行添加编号

delphi 导出TXT文本后如何在每行添加编号
我导出为TXT后，想在每行前加编号
如：
00001
.........
00031   
如这样的5位数字

请教各位大侠帮忙
[解决办法]
你是怎么导出的？

如果已经导出了，可以这样增加
var
ss1:TStringList;
i:Integer;
begin
  ss1:=TStringList.Create;
  ss1.LoadFromFile('xxx.txt');
  for i:=0 to ss1.Count-1 do
  begin
    ss1[i]:=IntToStr(i+1)+ss1[i];
  end;
  ss1.SaveToFile('xxx.txt');
  ss1.Free;
end;
[解决办法]
var
  s:TStringList;
  i:integer;
begin
  s:=TStringList.Create;
  s.LoadFromFile('XXX.txt');
  for i:=0 to s.Count-1 do
    s[i]:=Format('%.5d',i)+s[i];
  s.SaveToFile('XXX.txt');
  s.Free;
end;