Hola DOS.
Código Delphi
[-]
function hmToDateTime(cbH, cbM: TComboBox): TDateTime;
begin
if (cbH.ItemIndex = -1)or(cbM.ItemIndex = -1) then
raise Exception.Create('Debe ingresar horas y minutos');
Result := EncodeTime(StrToInt(cbH.Items[cbH.ItemIndex]),
StrToInt(cbM.Items[cbM.ItemIndex]), 0, 0);
end;
Uso:
Código Delphi
[-]
begin
Table1.Append;
Table1.FieldByName('Hora').Value := hmToDateTime(cbHoras, cbMinutos);
...
Saludos