2 Farben auf einer Form mit weichen Übergängen

[Aurelius]

?

ICh ahbs das ganze doch schon vorher eingebaut, d.h. unter

Delphi-Quellcode:

private
procedure MyRepaint;

...

procedure TfrmMain.MyRepaint;
var
  I: Integer;
begin
  DisableAlign;
  For I := 0 to ControlCount - 1 do With Controls[0] do
  begin
    Parent := nil;
    Parent := Self;
  end;
  EnableAlign;
end;

Ist da was falsch dran?