Schiffe versenken programmieren

[leodinho]

So das wäre momentan mein Entwurf , es kann auch erfolgreich kompiliert werden jedoch kommt eine Meldung wenn ich dann gestartet habe /:

Meldung: Projekt project1 hat Exception Klasse >> External:SIGSEGV << ausgelöst.
In Datei ''grids.pas'' in zeile 4891

Würde gern eine Meinung zum Quellcode (:

Delphi-Quellcode:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids;

type

  { TForm1 }

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
  StringGridSpielfeld: TStringGrid;
  procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

  const COLS = 12;
        ROWS = 12;

var
  Form1: TForm1;
  SpielfeldIntern :array[1..COLS, 1..ROWS] of integer;
implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
 StringgridSpielfeld.ColCount:=COLS;
 StringgridSpielfeld.RowCount:=ROWS;
end;

end.