Delphi7 компонент Shape

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;