Tipo de Campo para Hora en SQL Server

[[BlueSteel]]

Aún sigo con el problema de almacenar la Hora...

y no se como solucionarlo.....

trate de almacenar de la sgte forma

Código Delphi [-]
Datos.AQ_Edit.Close;
Datos.AQ_Edit.Sql.Clear;
Datos.AQ_Edit.SQL.Add('Insert Into Horario (Hor_Tipo, Per_Nro, Hor_Fecha, Hor_Hora, Hor_Dato)');
Datos.AQ_Edit.SQL.Add('Values (:v01, :v02, :v03, :v04, :v05)');
Datos.AQ_Edit.Parameters[0].Value := DTexto.fieldbyname('Tipo').AsString;
Datos.AQ_Edit.Parameters[1].Value := IntToStr(StrToInt(DTexto.FieldByName('Ficha').asString));
Datos.AQ_Edit.Parameters[2].Value := StrToDate(Concat(Concat(Copy(DTexto.FieldByName('Fecha').asString,7,2),'-',Copy(DTexto.FieldByName('Fecha').asString,5,2),'-',Copy(DTexto.FieldByName('Fecha').asString,1,4))));
Datos.AQ_Edit.Parameters[3].Value := StrToTime(Concat(Copy(DTexto.FieldByName('Hora').asString,1,2),':',Copy(DTexto.FieldByName('Hora').a  sString,3,2),':00'));
Datos.AQ_Edit.Parameters[4].Value := Concat(Concat(Copy(DTexto.FieldByName('Fecha').asString,7,2),'/',Copy(DTexto.FieldByName('Fecha').asString,5,2),'/',Copy(DTexto.FieldByName('Fecha').asString,1,4)),' ',Concat(Copy(DTexto.FieldByName('Hora').asString,1,2),':',Copy(DTexto.FieldByName('Hora').asString,  3,2),':00'));
Datos.AQ_Edit.ExecSQL;
DTexto.Next;

en Donde

Hor_Fecha es de tipo Date
Hor_Hora es de tipo Time
Hor_Dato es Varchar

el problema que me da es el sgte:

'la conversión del tipo de datos datetime a smalldatetime ha generado un error de desbordamiento de smalldatetime'

mi problema esta en poder almacenar la Hora... ya pude con la Fecha... pero
como debo almacenar la Hora ???

Tambien quise almacenar la fecha y hora junta, pero me da el mismo problema...