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