Iniciar un TThread en un Form crear en runtime

[joseprad]

Hola amigos:

Tengo un problema que no consigo resolver, ni encontró información en Internet.

Tengo un programa principal, que ha modo de menú general, abre diferentes formularios con el procedimiento:

Código Delphi [-]
with TForm1.Create(self) do begin
showModal;
free;
end;

Esto, me funciona perfectamente hasta que en un formulario abierto en tiempo de ejecución, intento crear un nuevo hilo.

El programa es una prueba de programa multi hilo, que me baje de Internet.

Código Delphi [-]
procedure TReloj.ActualizaTexto;
begin
  Form8.lbl1.Caption:=IntToStr(Hora);
end;

procedure TReloj.Execute;
begin
  Salir := False;
  Hora := 0;
  while not Salir do begin
    Synchronize(ActualizaTexto);
    sleep(1000);
    inc(Hora);
  end;
end;

Cuando lo ejecuto se ejecuta synchronize y pasa a ejecutar ActualizarTexto me da el siguiente error:
'Access violation at address 00A16CD2 in module 'MenuAplicacion'.Read of address '00000390'.

En cambio si lo ejecuto como programa principal, funciona perfectamente y no da ningún error.

Agradeceré cualquier ayuda