关于递归，我个人有个肤浅的认识，就是在函数或者过程中调用自身。
比如下面的代码，用递归的方法遍历磁盘文件，找到QQ.exe然后删掉。
procedure FindFile(Dir: String); // 自定义过程；
var Str: TSearchRec; // 是delphi为我们定义好的一个记录类型。 用于记录文件的各个参数，比如大小，属性，文件名等等；
Path: string; begin Path := extractfilepath(Dir); // 利用 ExtractFilePath函数 将文件的路径转为绝对路径然后复制给Path;
if FindFirst(Dir, faAnyFile, Str) = 0 then // FindFirst 是一个查找文件函数（查找第一个符合参数文件）里面有三个参数，（路径与文件后缀(C:\*.*) , 文件类型， TSearchRec类型变量（用于储存文件的参数）） , 函数如果找到了文件返回值便是0，否则返回值便是错误指令;
while FindNext(Str) = 0 do // FindNext是和FindFirst连着用的，FindFirst是查找第一个，FindNext则是查找下一个。 （返回值和FindFirst一样的）; 、
if (Str.Name <> '.') and (Str.Name <> '..') and (Str.Name = 'QQ.exe') then //这句就很明显了。在上面连个函数的执行过程中就已经把找到的文件的参数赋值给Str变量了。 而这句话的意思也就是剔除自身文件夹，与父文件夹。并且还要是QQ.exe
begin
DeleteFile(Path + Str.Name); // 如果符合IF的条件，就删掉QQ.exe ;
FindClose(Str); // 退出查找，并释放所占的内存。参数还是TSearchRec类型变量;
end
else if (Str.Name <> '.') and (Str.Name <> '..') and
、((FileGetAttr(Path + Str.Name)) = faDirectory) then //这里就是进入递归的地方了。 同样是排除父文件夹与自身，然后再判断当前文件是不是文件夹; 、
FindFile(Path + Str.Name + '\*.*'); // 如果符合了上面的条件，那就再调用自身，进行运算， 执行这一句之后就会跳到 begin处执行 反复循环。
end;
注 ： 执行上面的代码后就会在某个磁盘下查找QQ.exe 如果进入了递归之后你会发现在一个文件夹下如果没有QQ.exe程序自动会回到上一级目录中去。
比如这个目录d:\A\B，即A，B文件夹下都有文件，调用FindFile('d:\A\*.*')时 可能FindFirst先找到了B文件夹,即符合递归条件再次调用FindFile('d:\A\B\*.*'), 从而进入到B目录查找(A目录查找还未结束),待B目录查找结束后，会返回到A目录继续之前的动作