求一个delphi小程序

我是未来的你，你现在是不是在年找寻小程序答案。你不要感觉诧异，给你来信原因，就是让你不在后悔。今天去学习如何推广小程序，相信......点击查看更多>

procedure TForm1.Button1Click(Sender: TObject);
var
oritext,aimtext:TextFile;
s,str:string;
str1:string[5];
i,m,n:integer;
begin
i:=1;
assignfile(oritext,'D:\aa.txt');//源文件
reset(oritext);//只读方式打开
assignfile(aimtext,'D:\bb.txt');//目标文件
Rewrite(aimtext);{追加方式打开。也可以用Rewrite(aimtext),这是创建一个新文件（对于一个已存在的文件，此操作将使原文件被覆盖）。}
try
while not eof(oritext) do//循环读取文本
begin
readln(oritext,s);
str:=copy(s,3,4)+'/'+copy(s,7,2)+'/'+copy(s,9,2)+' '
+copy(s,11,2)+':'+copy(s,13,2)+':00 '
+copy(s,16,10)+' 001 00 1 ';
m:=length(inttostr(i));//判断i为字符串时的长度，决定str1中0的个数
for n:=1 to 5-m do
str1:=str1+'0';
str:=str+str1+inttostr(i);
str1:='';
i:=i+1;
writeln(aimtext,str);
end;
finally
closefile(oritext);
closefile(aimtext);
end;
end;
运行正常，结果为：
2007/06/26 18:59:00 0010165059 001 00 1 00001
2007/06/26 18:59:00 0010173847 001 00 1 00002
2007/06/26 18:59:00 0010185451 001 00 1 00003
2007/06/26 18:59:00 0010112243 001 00 1 00004
2007/06/26 18:59:00 0010165059 001 00 1 00005
2007/06/26 18:59:00 0010173847 001 00 1 00006
2007/06/26 18:59:00 0010185451 001 00 1 00007
2007/06/26 18:59:00 0010112243 001 00 1 00008
2007/06/26 18:59:00 0010165059 001 00 1 00009
2007/06/26 18:59:00 0010173847 001 00 1 00010
2007/06/26 18:59:00 0010185451 001 00 1 00011
2007/06/26 18:59:00 0010112243 001 00 1 00012

刚刚看到，我放在这里了，你自己下吧。主要是用的midstr函数

下载地址
http://bbs.gameres.com/upload/sf_2007810165713.rar

对不起，语言代码我已经忘的差不多了，虽然我也学的Delphi7。
Delphi中有个函数是提取一个字符串中某几位字符串的，忘了叫什么了，好象是COPY（），参数忘了。
剩下的就是TXT文件的读和写过程了。
你看看教程上字符串操作部分和文件管理部分吧，帮不了你别的了，不好意思，有正在学习D语言的朋友给写个代码吧，也不难。