Executar Thread num intervalo de tempo

boa noite,

tenho essa thread:
TForm1.PrcessaDados;
begin
MyThread := TThread.CreateAnonymousThread(procedure
begin
try
TThread.Synchronize(nil, procedure
begin
pnlInfo.Caption := '';
pnlInfo.Caption := 'Enviando pedidos...';

end);
// aqui executo os meus processos
EnviaPedidos;
if TThread.CheckTerminated then
Exit;

finally
if not TThread.CheckTerminated then
TThread.Synchronize(nil, procedure
begin
pnlInfo.Caption := 'Pedidos enviados com sucesso...';
end);

end;
end);
MyThread.FreeOnTerminate := False;
MyThread.Start;

end;

Tentei colocar um ttimer para executar essa thread a cada 5 minutos mas não da certo;

procedure TfrmPrincipal.Timer1Timer(Sender: TObject);
var
vHora: String;
vTotal: Integer;
vUltimo, vProximo: String;
vProxTime: TTime;

oCont: Integer;

begin
vTotal := SetInterval(intervalo);
inc(vIntervalo);

vHora := TimeToStr(Time);

lblContador.Caption := IntToStr(vIntervalo) + ' / ' + IntToStr(vTotal);
if (vHora < '23:50:00') then

begin
if vIntervalo = vTotal then // vTotal then
begin
Timer1.Enabled:= False;
ProcessaDados;

// aqui mando os dados da procedure
vProxTime := IncMinute(Time, StrToInt(edtHora.Text));
vUltimo := FormatDateTime('dd/mm/yyy', date) + ' - ' + FormatDateTime('hh:mm', Time);
vProximo := FormatDateTime('dd/mm/yyy', date) + ' - ' + FormatDateTime('hh:mm', vProxTime + 20);
SetAtualizacao(vUltimo, vProximo);

vIntervalo := 0;

DM.CSS.Socket.SendText('OPEN');



Timer1.Enabled:= True;
end;

Preciso executar essa TThread a cada 5 minutos, ou com timer ou de outra forma. Alguem pode me ajudar?

Grato.