DoubleBuffered funktioniert nicht

[PierreB]

Zitat von negaH:

sofort nach dem Label.Caption := 'xyz'; ein Label.Update; aufrufen.

Gruß Hagen

Nein, funzt leider net.
Ich hab zwei Labels dir wie "von Geisterhand" geschrieben werden sollen. Also das erste Label fängt an, wenn der String dann vollständig da ist, fängt das Label2 an. Beim Label1 ist alles ok, nur das zweite flackert dann heftig. Kann einer helfen ? Hier mal der Source:

Code:

var
i,h : integer;
procedure form1.timer1timer (Sender: TObject);
const
anfang = 'Herzlich Willkommen bei EliteHacker ! Unsere Firma sucht stets nach neuen Mitarbeitern!';
anfang1 = 'Bitte erstellen Sie ein neues Konto oder laden Sie ihren Spielstand. Viel Spass!';
begin
i := i + 1;
if i < 83 then
label1.caption := label1.caption + anfang[i];
if label1.caption = 'Herzlich Willkommen bei EliteHacker ! Unsere Firma sucht stets nach neuen Mitarbeitern!' then begin
h := h + 1;
if h < 86 then 
label2.caption := label2.caption + anfang[h];
end
end;