var
  Answer : Variant;

begin
  Answer := Divide(4,2);

  // Показ результата этого деления
  if Answer = Null 
  then ShowMessage('4 / 2 = Invalid')
  else ShowMessage('4 / 2 = '+IntToStr(Answer));

  Answer := Divide(4,0);

  // Показ результата этого деления
  if Answer = Null 
  then ShowMessage('4 / 0 = Invalid')
  else ShowMessage('4 / 0 = '+IntToStr(Answer));

end;

function TForm1.Divide(Dividend, Divisor: Integer) : Variant;
begin
  // Попытка деления Dividend на Divisor
  try
    Result := Dividend div Divisor;
  except
    Result := Null ;    // Присвоение Null, если деление выдало ошибку
  end;
end;