Controls в ячейках StringGrid. Артефакты

unit uFMain;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Grids, StdCtrls,
  LResources, FileUtil, RTTIGrids, Types;
 
type
 
  { TFMain }
 
  TFMain = class(TForm)
    SGr: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure SGrDrawCell(Sender: TObject; aCol, aRow: Integer; aRect: TRect; aState: TGridDrawState);
    procedure SGrTopLeftChanged(Sender: TObject);
  private
 
  public
 
  end;
 
var
  FMain: TFMain;
  //листы для контролов
  ListChBox:TList;
  ListChBox2:TList;
  ListCmBox:TList;
 
  tr,vr,lc,vc: Integer; //для окна наблюдения
 
implementation
 
{$R *.lfm}
 
{ TFMain }
 
procedure TFMain.FormCreate(Sender: TObject);
var
    pChBox:^TCheckBox;
    pChBox2:^TCheckBox;
    pCmBox:^TComboBox;
    i:integer;
begin
 
  SGr.RowCount:=25;  //строка 24 последняя
 
  ListChBox:=TList.Create;
  ListChBox.Capacity:=SGr.RowCount;
 
  ListChBox2:=TList.Create;
  ListChBox2.Capacity:=SGr.RowCount;
 
  ListCmBox:=TList.Create;
  ListCmBox.Capacity:=SGr.RowCount;
 
 
 
   for i:=0 to SGr.RowCount-1 do
   begin
      //для col[2]
      new(pChBox);
      pChBox^:=TCheckBox.Create(SGr);
      pChBox^.Parent:=SGr;
      pChBox^.Visible:=False;
      ListChBox.Add(pChBox);
      //для col[3]
      new(pChBox2);
      pChBox2^:=TCheckBox.Create(SGr);
      pChBox2^.Parent:=SGr;
      pChBox2^.Visible:=False;
      ListChBox2.Add(pChBox2);
      //для col[1]
      new(pCmBox);
      pCmBox^:=TComboBox.Create(SGr);
      pCmBox^.Parent:=SGr;
      pCmBox^.Visible:=False;
      pCmBox^.Items.Add(i.ToString); //для теста пишем в итем номер строки, где должен быть контрол
      ListCmBox.Add(pCmBox);
   end;
 
   //в первый солбец (col[0]) пишем номера строк
   for i:=1 to SGr.RowCount-1 do  // в заголовок не пишем (title.caption из инспектора)
   begin
      SGr.Cells[0,i]:=i.ToString;
   end;
 
  //подгоняем высоту строк под ComboBox
  SGr.DefaultRowHeight:=TComboBox(ListCmBox[3]^).Height;
end;
 
procedure TFMain.SGrDrawCell(Sender: TObject; aCol, aRow: Integer; aRect: TRect; aState: TGridDrawState);
begin
  //для окна наблюдения
   tr:=SGr.TopRow;
   vr:=SGr.VisibleRowCount;
   lc:=SGr.LeftCol;
   vc:=SGr.VisibleColCount;
 
  if (aRow>tr-1) and (arow<tr+vr+1) and
     (aCol>=lc) and (aCol<lc+vc) then
  begin
 
      if (acol=1) then
      begin
        TComboBox(ListCmBox[aRow]^).Width:= SGr.Columns.Items[acol].Width;
        TComboBox(ListCmBox[aRow]^).Top:=arect.Top;
        TComboBox(ListCmBox[aRow]^).Left:=arect.Left;
        TComboBox(ListCmBox[aRow]^).Visible:=True;
      end;
 
      if (acol=2) then
      begin
        TCheckBox(ListChBox[aRow]^).Top:=(arect.Top+
          Trunc(SGr.RowHeights[aRow]/2)-
          Trunc(TCheckBox(ListChBox[aRow]^).Height/2)-1);
        TCheckBox(ListChBox[aRow]^).Left:=arect.Left+
          Trunc(SGr.Columns.Items[acol].Width/2)-
          Trunc(TCheckBox(ListChBox[aRow]^).Width/2)+acol;
        TCheckBox(ListChBox[aRow]^).Visible:=True;
      end;
 
      if  (acol=3) and (aRow=3)then
      begin
        TCheckBox(ListChBox2[aRow]^).Top:=
          (arect.Top+
          Trunc(SGr.RowHeights[aRow]/2)-Trunc(TCheckBox(ListChBox2[aRow]^).Height/2)-1);
        TCheckBox(ListChBox2[aRow]^).Left:=
          arect.Left+
          Trunc(SGr.Columns.Items[acol].Width/2)-Trunc(TCheckBox(ListChBox2[aRow]^).Width/2)+3;
        TCheckBox(ListChBox2[aRow]^).Visible:=True;
      end;
  end else
  begin
    TCheckBox(ListChBox[aRow]^).Visible:=false;
    TCheckBox(ListChBox2[aRow]^).Visible:=false;
    TComboBox(ListCmBox[aRow]^).Visible:=false;
  end;
end;
 
procedure TFMain.SGrTopLeftChanged(Sender: TObject);
var
    i: Integer;
begin
 
 for i:=1 to sgr.RowCount-1 do
 begin
   if (i>tr-1) and (i<tr+vr) and
      (sgr.Col>=lc) and (sgr.Col<lc+vc+1) then
   begin
       if (sgr.Col=1) then
       begin
         TComboBox(ListCmBox[i]^).Width:= SGr.Columns.Items[sgr.Col].Width;
         TComboBox(ListCmBox[i]^).Visible:=True;
       end;
 
       if (sgr.Col=2) then
       begin
         TCheckBox(ListChBox[i]^).Visible:=True;
       end;
 
       if  (sgr.Col=3) and (i=3)then
       begin
         TCheckBox(ListChBox2[i]^).Visible:=True;
       end;
   end else
   begin
     TCheckBox(ListChBox[i]^).Visible:=false;
     TCheckBox(ListChBox2[i]^).Visible:=false;
     TComboBox(ListCmBox[i]^).Visible:=false;
   end;
 end;
end;
 
end.