RosettaCodeData/Task/Exceptions/Delphi/exceptions-1.delphi

procedure test;
begin
  raise Exception.Create('Sample Exception');
end;