Delphi - mínimo común múltiplo

estoy haciendo la suma y resta de dos fracciones pero necesito sacar el mínimo común múltiplo y la verdad es que lo que se me ocurre no es bueno, necesito saber si alguien me pudiera ayudar... estoy trabajando con delphi 5