Calculando Horas

Pessoal estou tentando colocar apenas horas em um determinado Dbedit mas sempre aparece 30/12/1899 20:30:00 quando saio do campo. Gostaria de saber se existe a possibilidade de ser colocado apenas o valor da hora para que eu possa fazer a subtração das mesmas usando a função abaixo

var
hora1: TDateTime;
hora2: TDateTime;
totat: TDateTime;
begin
hora1 := StrToTime(DbEdit3.Text);
hora2 := StrToTime(Edit1.Text);
totat := Hora2 - Hora1;
Edit2.Text := FormatDateTime(´hh:nn:ss´,totat);
end;

Obrigado a todos