请问各位高手,保证给分(100分)

1 procedure TForm1.Button1Click(Sender: TObject);
2 var
3 NewFileName: string;
4 Msg: string;
5 NewFile: TFileStream;
6 OldFile: TFileStream;
7 begin
8 NewFileName := ExtractFilePath(Application.ExeName) + ExtractFileName(Edit1.Text);
9
10 Msg := Format('Copy %s to %s?', [Edit1.Text, NewFileName]);
11 if MessageDlg(Msg, mtCustom, mbOKCancel, 0) = mrOK then
12 begin
13 OldFile := TFileStream.Create(Edit1.Text, fmOpenRead or hareDenyWrite);
14 try
15 NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);
16 try
17 NewFile.CopyFrom(OldFile, OldFile.Size);
18 finally
19 FreeAndNil(NewFile);
20 end;
21 finally
22 FreeAndNil(OldFile);
23 end;
24 end;
25 end;

请问各位高手以上的5,6,13,19 是什么意思？注释怎么写？保证给分！,还有怎样COPY一个
目录到另外一个目录？

你提到问题是程序创建文件流的过程，你可以看一看DElphi的帮助文件就知道了。

加释使用//给一行加
使用｛｝给一段加的

看得懂才问

5,6是申明了两个文件流
FreeAndNil是D6新加的函数，功能相当于
NewFile.Free;
NewFile:=nil

5://赋值newfile为tfilestream对象.
6://赋值oldfile为tfilestream对象.
13.15://看帮助吧,免得我又启动东方快车.一看就懂.

copy目录呀,我以前用过一个最笨的办法,用个TDirectorylISTBOX,笨吧.

接受答案了.