Bueno, prueba con lo siguiente para que te hagas a la idea de como hacer lo que quieres:
Código Delphi
[-]var
HUser :TDateTime;
begin
HUser := EncodeTime(StrToInt(Edit1.Text), StrToInt(Edit2.Text), StrToInt(Edit3.Text), 0);
ShowMessage(FormatDateTime('HH:MM:SS', HUser - Time));
end;