[NumLock]

если какое-то сообщение будет висеть какое-то время, то следующие сообщения могут пропадать. если организовывать стек сообщений, то после последнего какое-то время они будут еще меняться...

к решению 1 варианта:

Код:

var
  TickCount: DWORD = 0;

procedure TForm1.SetLabelText(const Text: String);
begin
  if GetTickCount-TickCount<1000 then Exit;
  TickCount:=GetTickCount;
  Label1.Caption:=Text;
end;

задать текст сообщения:

Код:

SetLabelText(IntToStr(GetTickCount));

текст будет обновляться не чаще чем через секунду