Delphi - Division delphi

Hola, primero que nada un saludo a todos los que hacen posible este foro.

Espero alguien me pueda ayudar a resolver un problema, quiero hacer una división pero guardar la la parte entera en una variable y los decimales en otra (DIV me sirve para la parte entera, pero MOD no) ejemplo:

19 / 4 = 4.75

varA := 4
varB := 75

Agradezco su ayuda.

Saludos.

Se me ocurre esto (puse 4 edits en un form y el código que sigue en el OnClick del botón):

procedure TForm1.Button1Click(Sender: TObject);
var
Num1, Num2: Integer;
PartEntera: Integer;
PartDecimal: Single;
begin
Num1:=StrToInt (Edit1.Text);
Num2:=StrToInt (Edit2.Text);
PartEntera:= Num1 div Num2;
PartDecimal:=Num1/Num2 - PartEntera;
Edit3.Text:=IntToStr (PartEntera);
Edit4.Text:=FloatToStr(PartDecimal);
end;

Creo que funciona. Suerte.

Gracias, si funciona muy bién por el momento me sirve perfectamente, pero aún me queda la duda si existe alguna función que haga el trabajo sucio.

Saludos.

Hola:

Trunc .. para la parte entera
Frac .. para la decimal

a := 6,25

Trunc(a) ... 6
Frac(a) ... 0,25

No se si es esto exactamente lo que buscabas.

Suerte. Virum.