Hola rocolza.
Como en el título preguntas como convertir un
Variant a
TTime y en el mensaje
Double a
TTime, te pongo un ejemplo que contempla los dos casos:
Código Delphi
[-]
...
var
V: Variant;
T1,T2: TTime;
D: Double;
begin
V := Now;
D := Now;
T1 := VarToDateTime(V);
T2 := D;
ShowMessage(TimeToStr(T1) + #10#13 + TimeToStr(D));
...
Saludos.