procedure TForm1.Button1Click(Sender: TObject); var N: SmallInt; begin for N := 0 to ComponentCount - 1 do begin ShowMessage(Components[N].Name); end; end;