Prueba con esto también:
Código Delphi
[-]...
var
Hora: TTime;
begin
with ADOQuery do
Hora := FieldByName('Lun_desde').AsDateTime;
end;
También con esto:
Código Delphi
[-]...
var
Hora: String;
begin
with ADOQuery do
Hora := FormatDateTime('hh:nn', FieldByName('Lun_desde').AsDateTime);
end;
Un saludo.