Calculo de tiempos

[jafera]

Hola a todos.

Tengo una duda con el codigo siguiente que me genera un error de x is not a valid integer value en las lineas que estan marcadas en rojo.

Lo que quiero hacer con este codigo es sacar a partir de un tiempo inicial, el de MaskEdit2.Text (ej. 03:25:45) un porcentaje de tiempo del cual pongo el valor (ej. 12) en JVvalidateEdit2 y desde aqui sacar este valor en tiempo (MaskEdit3.text) y el valor inicial + el porcentaje en Maskedit4.text.

El problema viene en la asignacion del valor a las variables Hores, Minuts i Segons.

Código Delphi [-]
 
procedure TF_Calculadora.JvXPButton2Click(Sender: TObject);
var
H: Ttime;
Hora, Minuto, Segundo, Msec: Word;
J,K : Double;
Hores, Minuts, Segons: Integer;
begin
        H:=StrToTime(MaskEdit2.Text);
        DecodeTime (H, Hora, Minuto, Segundo, Msec);
        J:=(Hora*3600)+(Minuto*60)+Segundo;
        K:=J*StrToFloat(JvValidateEdit2.text)/100;
        Hores  :=  StrToInt(FloatToStr(K)) div 3600;
        Minuts := StrToInt(FloatToStr(K)) div 60 mod 60;
        Segons := StrToInt(FloatToStr(K)) mod 60;
        MaskEdit3.Text:= TimeToStr(EncodeTime (Hores, Minuts, Segons,Msec));
        Maskedit4.text:=TimeToStr(StrToTime(MaskEdit2.Text)+StrToTime(MaskEdit3.Text));
end;

Si alguien me echa un cable....

Gracias por adelantado

Josep