Fórum Lista de threads #177496

Oi pessoal,
eu estou com uma dificuldade: eu crio vários threads e identifico cada um com um número. Eu preciso rodar cada um em um horário específico e para isso eu tenho um componente alarme. No on alarme eu tenho que achar o thread específico para aquele horário, ex:

procedure TFormPrincipal.Criar(Nome,Referencia:String; Horario:TDateTime; Cubo:TCube;
Tipo:ProcessTypes);
begin
//cria o thead mas não executa
processo:=TProcesso.Create(true);
processo.Cubo:=Cubo;

//especifica horário e tipo de processamento
processo.Nome:=Nome;
processo.Referencia:=Referencia;
processo.Horario:=Horario;
processo.Tipo:=Tipo;
processo.Priority:=tpLower;
//Cria um alarme para cada Thread
Alarme.AddExact(Horario,Referencia);
end;

procedure TFormPrincipal.Executar(MeuProcesso:TProcesso);
begin
MeuProcesso.Resume;
MeuProcesso.WaitFor;
MeuProcesso.Free;
end;

procedure TFormPrincipal.AlarmeAlarm(Sender: TObject; AlarmEvent: Integer;
Reference: ShortString);
var p: TProcesso;
begin

//como eu acho o processo com a Referencia=Reference????
Executar(p);
end;