Fórum Delay #232334

E ai pessoal td bem??
Olha queria saber com faço um delay, tenho o código mas naum achei um complemento pra fazer o quero, que seria enviar um protocolo em cada 50 milésimos de segundos.
O Código que consegui segue abaixo:

procedure delay(MSec: cardinal);
var
start: cardinal;
begin
Start:=GetTickCount;
repeat
Application.processMessages;
until (GetTickCount - Start)>=Msec;
end;



===--Exemplo de uso--===
delay(1000);{Aguarda 1 segundo}
delay(5000);{Aguarda 5 segundos}
delay(60000);{Aguarda 60 segundos = 1 minuto}

Mas meu protocolo não está sendo enviando como eu quero, ou melhor, envia o primeiro antes do código do delay e não envia mais nada.
Deve ser por causa da linha ´Application.processMessages;´, mas naum sei por qual substituir pra enviar meu protocolo via porta serial.

Agradeço a atenção