//Пример кода : Использование функции Raise 
var
  fred, jim : string;
begin
  // Установка некоторых типовые названий
  fred := 'Good name';
  jim  := 'Badname  ';

  // Попытка менять эти названия
  try
    ShowMessage(fred+' поменялся = '+SwapNames(fred));
    ShowMessage(jim+' поменялся = '+SwapNames(jim));
  except
    On E : Exception do
      ShowMessage(E.Message);
  end;
end;

// Перестановка первого и второго названия в переданной строке названия
// Поднимает исключение, если название недопустимо
function TForm1.SwapNames(name: string): string;
var
  blankPos : Integer;
  i        : Integer;
  nameLen  : Integer;
begin
  // Очистка строки результата, чтобы указать, что нет никакого результата
  Result := '';

  // Нахождение позицию последнего названия
  blankPos := Pos(' ', name);

  // Если найдено, и позиция меньше конца названия
  // тогда пока всё нормально
  nameLen := Length(name);
  if (blankPos > 0) and (blankPos   then
  begin
    // Нахождение начала второго названия
    i := blankPos + 1;
    repeat
      // Если начало последнего названия найденно, меняем первое и последнее название
      if name[i] <> ' '
      then Result := Copy(name, i, nameLen-i+1) + ' ' +
                     Copy(name, 1, blankPos-1)

      else Inc(i);
    until (i > nameLen) or (Length(Result) > 0);
  end;

  // Не удалось поменять первое и второе название ?
  if Length(Result) = 0
  then Raise Exception.CreateFmt('Недопустимое название : ''%s''', [name]);
end;

//Пример кода : Поднимаем новый тип исключения 
var
  age : Integer;
  exc : EBadAge;
begin
  // Простой код, который поднимает новый тип исключения
  age := 23;
  if age <30 
  then
  begin
    // Создание нового объекта исключения EBadAge
    exc := EBadAge.CreateFmt('Bad age : %d',[age]);

    // Теперь поднимаем этот новый объект исключения
    Raise exc;
  end;
end;