Estuve realizando algunos cambios.
Código Delphi
[-]function EncodeTime( Hour, Min: Word ): TDateTime; begin
Tiempo:=EncodeTime( h1, m1 );
end;
procedure TForm20.horaminutos; begin
h:=ComboBox3.Text;
m:=ComboBox2.Text;
h1:=strToInt(h);
m1:=StrToInt(m);
end;
este es el boton de guardar
Código Delphi
[-] procedure TForm20.BitBtn4Click(Sender: TObject);
begin
horaminutos; DBEdit4.SetFocus;
table1.FieldByName('Cod_turnovet').AsInteger:=c;
if table2.FieldByName('Cod_prop').AsInteger=Table3.FieldByName('Cod_prop').AsInteger
then
table1.FieldByName('Cod_propi').AsInteger:=Table3.FieldByName('Cod_prop').AsInteger;
Table1Hora.AsDateTime:=tiempo;
table1.Post;
end;
El asunto que cuando corre la hora queda en 00:00:00