请问各位，在delphi递归调用函数或过程，是否需要关键字，如果有，是什么？

Question

不需要。只要自己调用自己就可以了。记得要有递归出口。
Sample:
procedure EnableControls(AParent: TWinControl; const AEnabled: Boolean);
var
  i: Integer;
  AWinControl: TWinControl;
begin
  with AParent do
    for i := 0 to ControlCount - 1 do begin
     // Set enabled property
      Controls[i].Enabled := AEnabled;
      // Set all his children's property of enable
      if Controls[i] is TWinControl then begin
        AWinControl := TWinControl(Controls[i]);
        if AWinControl.ControlCount > 0 then
          EnableControls(AWinControl, AEnabled);
      end
    end
end;

Answer 1

function fac(var i:integer):integer;
begin
   if (i=0) or (i=1) then result:=1;
   result:=fac(i-1);
end;