label, принудительный вывод на экран

Application.ProcessMessages;

Application.ProcessMessages;

LabelX.repaint;

...
LabelX.caption:='блаблабла';
LabelX.repaint;
...

{**** UBPFD *********** by delphibase.endimus.com ****
>> Замена штатного Application.ProcessMessages
Автор:       ssk, ucad@pisem.net, ICQ:166758074, Харьков
Copyright:   составлено из кусков кода Borland
Дата:        7 сентября 2004 г.
*****************************************************}
Uses Windows, Messages
procedure ProcessMessagesEx;
function IsKeyMsg(var Msg: TMsg): Boolean;
const
CN_BASE = $BC00;
var
Wnd: HWND;
begin
Result:= false;
with Msg do if
(Message >= WM_KEYFIRST) and
(Message <= WM_KEYLAST) then
begin
Wnd:= GetCapture;
if Wnd = 0 then
begin
Wnd:= HWnd;
if SendMessage(Wnd,CN_BASE+Message,WParam,LParam) <> 0 then
Result:= true;
end else
if (LongWord(GetWindowLong(Wnd,GWL_HINSTANCE)) = HInstance) then
if SendMessage(Wnd, CN_BASE + Message, WParam, LParam) <> 0 then
Result:= true;
end;
 end;
function ProcessMessage(var Msg: TMsg): Boolean;
begin
Result:= false;
if PeekMessage(Msg,0,0,0,PM_REMOVE) then
 begin
Result:= true;
if Msg.Message <> WM_QUIT then
if not IsKeyMsg(Msg) then
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
 end;
end;
var
Msg: TMsg;
begin
while ProcessMessage(Msg) do {loop};
end;