[dr. F.I.N.]

Предположу, что cellN - это кнопки. Если создаете их в Run-time, то при создании задайте свойство Tag. Если кнопки созданы в Design-time (полагаю так и есть), то сразу задайте это свойство каждой кнопке.
Так же предположу что это крестики-нолики с полем 3х3 (хотя не важно), поэтому можно сделать: Tag := cell_num + row_num * 10;
Задайте нажатию всем кнопок одно событие:

Код:

procedure TForm1.CellClick(Sender: TObject);
const
  PIC_FILE: array [Boolean] of string = ('<file_name_for_X.jpg>', '<file_name_for_O.jpg>');
var
  cell, row: Integer;
begin
  row := TButton(Sender).Tag div 10;
  cell := TButton(Sender).Tag mod 10;
  A[row, cell] := Byte(count);
  TButton(Sender).Picture.LoadFromFile(PIC_FILE[count]);
  TButton(Sender).Enabled := False;
  count := not count;
  check;
end;

Ну а проверку на победу однозначно можно укоротить. Однако не совсем понятно, какие переменные вы используете, какие данные храните и т.п. Не стоит выкладывать код скриншотами. Для этого есть специальный тэг.