Выделение новых и редактируемых строк в DbGrid

type
  TMyDBGrid = class(TCustomDBGrid);
 
 
procedure TFormBHACable.DBGridBHA1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
clPaleGreen = TColor($CCFFCC);
clPaleRed = TColor($CCCCFF);
begin
 
With TMyDBGrid(Sender) Do
    if (DataLink.ActiveRecord = Row - 1) then
      begin
    if Column.Field.Dataset.FieldByName('NameTool').AsString <> 'a'
  then  begin
        Canvas.Brush.Color := clPaleGreen;
        Canvas.Font.Color := clBlack;
        end;
       end;
        DBGridBHA1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      end;

var
  MyList : TList;
  RecordState: Longint; //0-обычная запись, 1-добавленная, 2-исправленная
begin  //in FormCreate
  MyList := TList.Create;
  RecordState :=0;
 
//добавить для каждой существующей записи
  MyList.Add(Pointer(RecordState)); //добавлять можно только указатели, но мы его будем как целое число использовать
 
//редактирование записи
  Longint(MyList.Items[RowNum]) := 2;
 
//новая добавленная запись
  MyList.Add(Pointer(1)); 
 
//не забыть в конце
MyList.Free

procedure TForm1.FormCreate(Sender: TObject);
begin
{...}
end;
...
procedure TForm1.FormDestroy(Sender: TObject);
begin
  MyList.Free;
end;

Left side cannot be assigned to...

MainForm.MyList.Items[DataModule2.Table1.RecNo]:=Pointer(2);

MainForm.MyList.Add(Pointer(1));

MainForm.MyList.Items[DataModule2.Table1.RecNo-1]:=Pointer(2);

MyList.Delete(DataModule2.Table1.RecNo-1);

if (DBGrid1.DataSource=DataModule2.DataSource1) then
for i:=0 to MyList.Count-1 do
if ((MyList.Items[i]=Pointer(1)) and (DataModule2.Table1.RecNo=i+1)) then
with DBGrid1.Canvas do
    begin
      Brush.Color := clGreen;
      Font.Color := clWhite;
      FillRect(Rect);
      TextOut(Rect.Left + 2, Rect.Top + 2, Column.Field.Text);
      prosrok:=true;
    end
else
if ((MyList.Items[i]=Pointer(2)) and (DataModule2.Table1.RecNo=i+1))  then
with DBGrid1.Canvas do
    begin
      Brush.Color := clBlue;
      Font.Color := clWhite;
      FillRect(Rect);
      TextOut(Rect.Left + 2, Rect.Top + 2, Column.Field.Text);
      prosrok:=true;
    end
else
with DBGrid1.Canvas do
    begin
      Brush.Color := clWhite;
      Font.Color := clBlack;
      FillRect(Rect);
      TextOut(Rect.Left + 2, Rect.Top + 2, Column.Field.Text);
      prosrok:=false;
    end;

procedure TformColorGrid.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
               DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  i,K: integer;
Begin
  If Sender is TDBGrid then   //Otche nash.. ;-)
  with Sender as TDBGrid do
  begin  
     i:=Datasource.Dataset.Recno-1; //от номера записи к индексу в листе
     K:=Longint(MyList.Items[i]);      //состояние записи 
 
     case k of                               //расставляем цвета по вариантам
     0:begin
      Canvas.Brush.Color:=clGreen;
      Canvas.Font.Color:=clWhite;
        end;
     1:begin
      Canvas.Brush.Color:=clBlack;
      Canvas.Font.Color:=clWhite;
        end;
     2:begin
      Canvas.Brush.Color:=clBlue;
      Canvas.Font.Color:=clWhite;
        end; 
     end; 
     // если строка была выделена, оставляем "подсвеченные" цвета  
     IF  gdSelected   IN State
     Then Begin
    Canvas.Brush.Color:= clHighLight;
    Canvas.Font.Color := clHighLightText;
     End;
    
     // А теперь пусть он рисует сам !
     DefaultDrawColumnCell(Rect,DataCol,Column,State);
   end;
End;