var
  celsius, fahrenheit : Double;

begin
  //  Определение значения фаренгейта
  fahrenheit := 98.4;  // Температура тела человека

  // Преобразование в цельсия
  celsius := FahrenheitToCelsius(fahrenheit);

  // Показ обоих значений
  ShowMessageFmt('%f F  = %f C',[fahrenheit, celsius]);
end;