Flackern bei vielen Komponenten

[CeKa]

Grüße,

meine Programmierkenntnisse sind nicht die besten, trotzdem versuche ich mich daran.

Mein Problem ganz konkret:
Ich möchte mehrere (viele) Komponenten zur Laufzeit erstellen und ebenso die Möglichkeit haben, diese zur Laufzeit gleichzeitig in Horizontalrichtung zu verschieben. Mit einer ScrollBox kein Problem, leider flackern dabei alle Komponenten etwas zu sehr.
Damals habe ich die Komponenten noch über (FindComponent('Button' + IntToStr(I) as TButton) angesprochen, aber vielleicht gibt es ja hier eine bessere Lösung.

Danke für jedwede Hilfe,
Grüße


Als Anhang noch ein Beispiel:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  I, J: Byte;
begin
  for I := 0 to 9 do
    for J := 0 to 9 do
    begin
      MyButton := TButton.Create(Form1);
      with MyButton do
      begin
        Left := J * 100;
        Top := I * 100;
        Height := 100;
        Width := 100;
        Name := 'MyButton' + IntToStr((I + 1) * 10 + J);
        Parent := Form1;
      end;
    end;
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
var
  I, J: Byte;
begin
  for I := 0 to 9 do
    for J := 0 to 9 do
     (FindComponent('MyButton' +IntToStr((I + 1) * 10 + J)) as TButton).Left := - ScrollBar1.Position + J * 100
end;