Delphi - Datasource

lo que necesito es capturar el valor de un campo en una variable para mostrarlo!
el mensaje de error es "Invalid variant type conversión" y la linea es la siguiente
horas:=timetostr(datasource1.DataSet.Fields[4].Value);
horas es un string, y la tabla es asi
nombre strings
*horaentra datetime
*horasal datetime
actividad string
*nohoras datetime
fecha datetime
*solo almacenan la hora!
tambien probe utilizando datasource1.dataset.parambyname('nohoras') pero nada.

en vez de hacer el timetostr debe ser datetimetostr porque por mas que sea lo que guardes sea la hora , la variable es de tipo datetime

Salu2!!!!!

El error lo tienes aqui:
horas:=timetostr(datasource1.DataSet.Fields[4].Value);
debe ser asi:
horas:=timetostr(datasource1.DataSet.Fields[4].asDateTime);