Hi, > This ought to work a little better for you: > > For X:=0 to Form1.ComponentCount-1 do > If Form1.Components[X] is TSpeedbutton then > If (Form1.Components[X] as TSpeedbutton).Name = 'SpdBtn' + IntToStr(I) then > Case I of > 1: SpdBtn1.Caption := Strlist[0]; > 2: SpdBtn2.Caption := Strlist[1]; > etc....
I might be missing something, but how does that differ from simply doing: with Form1 do begin SpdBtn1.Caption := Strlist[0]; SpdBtn2.Caption := Strlist[1]; etc.... ? Martin.

