AnimateWindow und Komponetenverlust

[DevilsCamp]

Ich habe z.Z. das selbe Problem.

Mit folgendem Code werden mir zwar die Komponenten alle angezeigt, allerdings verlieren einige Komponenten dann ihren 3D-Look (bisher beobachtet bei: TRichEdit, TEdit, TMemo, TTreeView, TListBox und TProgressBar):

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  i : Integer;
begin
  AnimateWindow(Handle, 250, AW_BLEND or AW_ACTIVATE);

  for i := 0 to ComponentCount-1 do
    if (Components[i] is TControl) then
      (Components[i] as TControl).Repaint;

end;

So soll's aussehen:
http://www.myrasmussen.de/bilder/richtig.png

Und so sieht es aus:
http://www.myrasmussen.de/bilder/falsch.png


Den 3D-Look bekommen die Komponenten dann erst, wenn sie vom System her aufgefordert werden sich neu zu zeichnen (weil sie z.B. verdeckt waren)
Hat jemand eine Idee?