Delphi - timers en threads

Porque nunca se me lanza el procedimiento del timer en el thread??? (El thread funciona bien, y el timer si lo pruebo fuera del thread tambien)
Pongo el bucle infinito para forzar que salte el procedimiento del timer (esto si lo pruebo fuera del thread funciona)!!

//*****************EXECUTE**********************
self.tmrThread := TTimer.Create(nil);
self.tmrThread.Enabled := false;
self.tmrThread.Interval := 1000;
self.tmrThread.OnTimer := tmrThreadTimer;
self.tmrThread.Enabled := true;

while envioMas do
begin
end;

//***********************************************************
procedure tmrThreadTimer(Sender:TObject);
begin
MataProceso(self.Handle);
end;

gracias