RosettaCodeData/Task/Exceptions/DWScript/exceptions-1.dwscript

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