Редактор свойства компонента

function TMarkTable.SelectCell(ACol, ARow : Longint) : boolean;
begin
  InvalidateGrid;
  result := true;
end;
 
procedure TMarkTable.DrawCell(ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  inherited;
  if gdFocused in State then
  begin
    Canvas.Font.Color := RGB(238,43,67);
    Canvas.Font.Style := [fsBold];
    Canvas.Brush.Color := RGB(223,185,133);
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left, Rect.Top, AnsiUpperCase(Cells[ACol,ARow]));
  end
  else
  if not (gdFixed in State) then
  begin
    Canvas.Font.Color := clBlack;
    Canvas.Font.Style := [];
    Canvas.Brush.Color := clWhite;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left, Rect.Top, AnsiLowerCase(Cells[ACol,ARow]));
  end
end;

procedure TMarkTable.SetFio(value : TStringList);
begin
  FFio.Assign(value);
  MoveData;
end;
 
procedure TMarkTable.MoveData();
var
  i : integer;
begin
  RowCount := Max(Fio.Count, Mark.Size) + 1;
  for i:=0 to FFio.Count-1 do
    Cells[0,i+1] := Fio.Strings[i];
  for i:=0 to FMark.Size-1 do
    Cells[1,i+1] := IntToStr(Mark.GetValue(i));
end;

constructor TMarkTable.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
  FFio := TStringList.Create;   //здесь поле FFio создается еще раз, теряя записанное при проектировании
  FMark := TArray.Create;
  ColCount := 2;
  RowCount := 2;
  FixedCols := 0;
  FixedRows := 1;
end;