Cabeceras en el código de Delphi.

[dec]

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.