Shape Delрhi7

[муська]

Здравствуйте!
Пишу игру "морской бой".
Подскажите пожалуйста, как при прорисовке кораблей, не было такого, чтобы, например, трехпалубный корабль был, а в продолжении есть четырехпалубный и др.как изменить кусок кода, чтобы не было такого, как показано на рисунке?

procedure TForm1.SetColorOnShape1(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
 i,j:integer;
 f:Boolean;
begin
 f:=false;
 for i:=-1 to 9 do
  for j:=-1 to 9 do
   if Not blGameStatus then
    if Sender = Pole1[i,j] then
     if bShipsPlaced < bShips then  begin
      if Pole1[i,j].Brush.Color = clBlue then f := true;
      if Pole1[i-1,j+1].Brush.Color = clBlue then f := true;
      if Pole1[i+1,j-1].Brush.Color = clBlue then f := true;
      if Pole1[i+1,j+1].Brush.Color = clBlue then f := true;
      if Pole1[i-1,j-1].Brush.Color = clBlue then f := true;
      if Not f then  begin
       Pole1[i,j].Brush.Color:=clBlue;
       inc(bShipsPlaced);
      end
     end;
    if bShipsPlaced = bShips then
     begin
      blGameStatus:=true;
      N6.Enabled:=true;
      N7.Enabled:=true;
     end;
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.