Algoritmia - Algoritmo para convertir decimal a fraccion

Tengo un problema ya que tengo un campo llamado. Exernal Diameter que es Decimal. Por lo tanto cuando coloca 1/4 lo convierte a .25

Necesito el codigo para convertir el .25 a su valor original

Gracias

usar artificio matematico denominado fraccion generatriz

0.25 = 25/100 y factorizar

(25/100) multiplo ambos de 25 lo que resulta 1/4

es decir desarrolla un algorimo que
1) convierta la fracción en su generatriz
2) verifique el mutiplo de la fracción y la simplifique

conversion de decimal a fraccion
con la generatriz y que es generatriz

function Quebrado(Numero : String):String;
var numerador, denominador, i : Integer;
entero : string;
begin
entero := Copy(Numero, 1, pos('.', Numero)-1);
numerador := StrToInt(copy(Numero, pos('.', Numero)+1, length(Numero)));
denominador := StrToInt(FloatToStr(IntPower(10, Length(IntToStr(numerador)))));
for i := numerador downto 1 do
begin
if ((numerador mod i)=0) and ((denominador mod i)=0) then
begin
numerador := numerador div i;
denominador := denominador div i;
end;
end;
Result := entero +' '+IntToStr(numerador)+'/'+IntToStr(denominador);
end;

porfavor enviar resultados de com0o convertir un decimal a un quebrado con ejemplos