De una captura de fecha, hacer que avance con TTimer

[ecfisa]

Empezado por Cristhor1982

Ahora bien, quiero que el timer lo haga avanzar desde la hora capturada...se entiende?.

Hola.

Bueno, espero que si...

Ejemplo:

Código Delphi [-]
implementation  

uses DateUtils;

var
  CampoHora : TTime;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CampoHora := Time;
// En tu caso sería: CampoHora := TuDataSet.FieldByName('FECHA').AsDateTime; 
  Label1.Caption := FormatDateTime('hh:mm:ss', CampoHora);
  Timer1.Interval := 1000;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  CampoHora := IncSecond(CampoHora);
  Label1.Caption := FormatDateTime('hh:mm:ss', CampoHora);
end;

Saludos.