Du musst einfach den Prozedurenkopf wie in einem Interface-Abschnitt hinschreiben und ein
forward dahintersetzen. Danach die Prozedur ausschreiben wie im Implementation-Abschnitt
Delphi-Quellcode:
procedure test2; forward;
procedure test3; forward;
procedure test;
begin
if Bedingungen=true then
Anweisungen
weiter:=2;
end;
procedure test2;
begin
if Bedingungen=true then
Anweisungen
weiter:=3;
end;
procedure test3;
begin
if Bedingungen=true then
Anweisungen
weiter:=1;
end;
procedure zusammen;
begin
if weiter=1 then test
else if weiter=2 then test2
else if weiter=3 then test3;
end;
begin
zusammen;
end.