var
  gallons, litres  : Double;
  fromType, toType : TConvType;

begin
  // Определите значения галлонов
  gallons := 1;

  // Преобразование в литры
  fromType := vuUKGallons;
  toType   := vuLiters;
  litres := Convert(gallons, fromType, toType);

  // Показ обоих значений
  ShowMessageFmt('%f UK галонов = %f литров',[gallons, litres]);
end;