procedure someproc;
  label somelabel;
begin
  //do something;
  if something happen then begin
     goto somelabel:
  end;      exit;//use exit let the goto statement meaningful
  
  label:
    //your somelabel's code 
end;