Узнать количество экземпляров TButton на форме?

[tonatas]

Как узнать колическтво экземпляров какого то компонента (например TButton) на форме?

[ex.cluz]

Перебрать в цикле все контролы на форме. И если контрол - это TButton, то +1 к переменной в цикле.

Если вы хотите сделать это отдельной функцией, то можно, например, так:

function TForm1.NumOfButtons(Form: TForm): integer;
var
  i: integer;
begin
  result:=0;
  with Form do
  for i:=0 to ControlCount-1 do if Controls[i] is TButton then Result:=Result+1;
end;

В саму функцию нужно передать форму, на которой надо подсчитать кнопки, а возвратит она их число.

Проверить результат, возвращаемый этой функцией, можно, например, так:

  ShowMessage(IntTostr(NumOfButtons(Form1)));