TRobiWorkField = class(TGraphicControl)
  private
    FRowCount: Integer;
    FTileSize: Integer;
    FColCount: Integer;
  public
    procedure Init(aRows, aCols, aTileSize: Integer);

    property TileSize: Integer read FTileSize;
    property RowCount: Integer read FRowCount;
    property ColCount: Integer read FColCount;
  end;

procedure TWorkField.Init(aRows, aCols, aTileSize: Integer);
begin
  FRowCount := aRows;
  FColCount := aCols;
  FTileSize := aTileSize;

  // Um die nächsten zwei Zeilen geht es
  Height := FRowCount * FTileSize;
  Width := FColCount * FTileSize;
end;