Курсовая: крестики - нолики Опции

[T2D]

Задача: сделать крестики - нолики для двоих на безграничном поле, выигрывает, тот кто посптаит 5 в ряд.

Подскажите как сделать, чтобы поле увеличивалось вместе с окном.
И как осуществить проверку 5ти в ряд.

Спасибо.

[Гость]

Я использую такуб процедуру, но получается не очень:

procedure TForm7.FormResize(Sender: TObject);
  var I, J: integer;
begin
  I:=Form7.ClientHeight;
  J:=Form7.ClientWidth;
  Pole.Height:=I;
  Pole.Width:=J;
  Pole.RowCount:=I div 15;
  Pole.ColCount:=J div 15;
  Form7.Caption:='Крестики - Нолики  '+IntToStr(Pole.RowCount)+'x'+IntToStr(Pole.ColCount);
end;