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.

Reply via email to