SetTextBuf作用？(20分)

这是SetTextBuf Example，这里及呼看不懂，您能忙我详细的解释一下吗？
program SetTextBufExample;

{$APPTYPE CONSOLE}

var
Source, Destination: TextFile;
AFileName: string;
AChar: Char;
Buf: array[1..4096] of Char; { 4K buffer }
begin
Write('Enter filename: ');
Readln(AFileName);
AssignFile(Source, AFileName);
{ Larger buffer for faster reads }
SetTextBuf(Source, Buf);
Reset(Source);
{ Dump text file into another file }
AssignFile(Destination, 'WOOF.DOG');
Rewrite(Destination);
while not Eof(Source) do

begin
Read(Source, AChar);
Write(Destination, AChar);
end;
CloseFile(Source);
CloseFile(Destination);
end.

大意是这样的:
这是一个命令行程序(控制台程序), 按照提示输入一个文件的名称, 要求是全路径, 然后按照输入的文件路径, 打开它, 然后把打开的文件内容追加到文件'WOOF.DOG'中.
不知道, 我说的对不对.