Problem mit PaintBox und Label

[Bummi]

sauber ist eine Implementierung in dieser Art (reines Testprojekt 6 Labels auf dem Form)

Delphi-Quellcode:

procedure TForm2.Timer1Timer(Sender: TObject);
begin
   if Timer1.Tag > 6 then
      begin
        Timer1.Enabled := false;
        SendMessage(handle,WM_SETREDRAW,-1,0) ;
        RedrawWindow(handle, 0, 0, RDW_ERASE or RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN);
      end
   else
      begin
        SendMessage(handle,WM_SETREDRAW,0,0);
        Timer1.Tag := Timer1.Tag + 1;
        TLabel(FindComponent('Label' + IntToStr(Timer1.Tag))).Caption := FormatDateTime('ss:zzz',now);
      end;
end;