procedure RaiseException(const Msg: String);
Raises an exception with the specified message.
begin
RaiseException('Your message goes here');
// The following line will not be executed because of the exception
MsgBox('You will not see this.', mbInformation, MB_OK);
end;