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

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