Button.color in schleife ändern??

[snow]

So ich hab jetzt das

Delphi-Quellcode:

for lokal:= 1 to 16 do begin
     (FindComponent('MGkeyboardlabel' + IntToStr(lokal)) as TLabel).Caption:=(Inttostr((Keyboardnummer.value-1)*16 + lokal));
     (FindComponent('MGkeyboardbutton' + IntToStr(lokal)) as TSpeedbutton).Color:=clred;
     end;

Läuft....

Mfg Snow