procedure TForm1.Button3Click(Sender: TObject);
var
i:Integer;
begin
for i := Form1.ComponentCount - 1 downto 0 do
if Form1.Components[i].ClassName = 'TLabel' then
(Form1.Components[i] As TLabel).Caption := (Form1.Components[i] As TLabel).Caption + '-a'
else if Form1.Components[i].ClassName = 'TMenuItem' then
(Form1.Components[i] As TMenuItem).Caption := (Form1.Components[i] As TMenuItem).Caption + '-a'
else if Form1.Components[i].ClassName = 'TTabSheet' then
(Form1.Components[i] As TTabSheet).Caption := (Form1.Components[i] As TTabSheet).Caption + '-a'
else if Form1.Components[i].ClassName = 'TButton' then
(Form1.Components[i] As TButton).Caption := (Form1.Components[i] As TButton).Caption + '-a';
end;