No continua la ejecucion un procedimiento

[[egostar]]

Probe tu código, cambiando algunas cosas por supuesto pero imagino que debe de ser algo similar lo que haces y sí pasó por cada una de las comparaciones que tienes.

aquí la imagen

y aquí el código que meti para probar.

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
begin
  rptHabilita := True;
  rptImprime := True;
  rpdHabilita := True;
  rpdImprime := True;

  dHora := 15;
  dMin  := 57;
  dSeg  := 30;

  pHora := 15;
  pMin  := 57;
  pSeg  := 34;

  sHora := 15;
  sMin  := 57;
  sSeg  := 38;

  tHora := 15;
  tMin  := 57;
  tSeg  := 42;
end;

No será en otro lado tu problema?

Salud OS