Hola,
Código Delphi
[-]
procedure UnProcedimiento;
label Pepe;
label Juan;
begin
if True then
goto Pepe
else
goto Juan;
Pepe:
begin
ShowMessage('¡Hola Pepe!');
Exit;
end;
Juan:
begin
ShowMessage('¡Hola Juan!');
Exit;
end;
end;
PD: Pobre Juan, que nadie le saluda.