[NumLock]

Код:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    ListBox1: TListBox;
    Memo1: TMemo;
    CheckBox1: TCheckBox;
    RadioButton1: TRadioButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:=0 to ControlCount-1 do
    if Controls[i] is TWinControl then
      SendMessage(TWinControl(Controls[i]).Handle, WM_SETTEXT, 0, 0);
// SendMessage(TWinControl(Controls[i]).Handle, WM_SETTEXT, 0, Integer(PChar('avatar 3d')));
end;