Calculos de horas

Boa noite estou com um problema para resolver isso aqui as variáveis são do tipo time:

entradap1:= IBQuerySelectHoras.fieldbyname(''''HORAS_ENTRADA_P1'''').AsInteger ;
saidap1:= IBQuerySelectHoras.fieldbyname(''''HORAS_SAIDA_P1'''').AsInteger;
entradap2:= IBQuerySelectHoras.fieldbyname(''''HORAS_ENTRADA_P2'''').AsInteger;
saidap2:= IBQuerySelectHoras.fieldbyname(''''HORAS_SAIDA_P2'''').AsInteger ;
totalHoras:= ((entradap1 - saidap1)+(entradap2 - saidap2)); // aqui ocorre o erro

showMessage(''''Soma de horas = ''''+totalHoras.Text);

showMessage(''''Entrada Manha = ''''+manhaEntrada.Text +#13+
''''Saida Manha''''+manhaSaida.Text +#13+
''''Entrada Tarde''''+tardeEntrada.Text +#13+
''''Saida Tarde''''+tardeSaida.Text +#13+
''''Total Trabalhado = ''''+totalHoras.Text );
end

retorna este erro aqui
[DCC Error] UPonto.pas(112): E2010 Incompatible types: ''''TEdit'''' and ''''Extended''''
[DCC Fatal Error] UPrincipal.pas(60): F2063 Could not compile used unit ''''UPonto.pas''''