[delphi] visibilidad y alcance de identificadores

[franco_cvm]

podría ser este el código que busco??? con respecto a lo de visibilidad y alcance no logro hacerlo.

Código Delphi [-]
procedure factorial(n:integer;var res:integer);
var
i,a:integer;
begin
if n<=1 then
res:=1
else
begin
a:=1;
for i:=1 to n do
a:=a*(i);
res:=a;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a,res:integer;
begin
a:=StrToInt(edit1.Text);
factorial(a,res);
showmessage(IntToStr(res));
end;