Verschachtelte Funktionen: Variablen übergeben

[chkdsk]

Hallo!!!

Wie kann ich den Inhalt der Variable a an die Variable p übergeben?
Ich habe es bisher nur mit globalen Variablen (deklariert bei $1) geschafft,
das ist aber nicht wirklich schick.

Also, die Funktion xxx wird mit a aufgerufen, sie ruft die Funktion yyy auf,
diese braucht den Inhalt von a (steht dann in p, sind gleicher datentyp),
ohne das a direkt übergeben wird.

Es klappt, wenn ich folgende Deklaration global ausführe:

Aber es muss doch irgendwie auch innerhalb der Funktion gehen!!!!!

var
p: b;

Delphi-Quellcode:

function xxx(a: b): c;

  function yyy(g: h): o;
  begin
    result := dosomethingwith(p);
  end;

var
  r: t;
begin
  yyy('chkdsk');
end;