dbgrid와 query콤포넌트, 데이타소스를 연결했구요
수정할때 데이타를 변경한 셀마다 색을 변경해야돼는데요
아무리 해도 안돼네요
벌써 일주일째 이걸로 헤매고있어요

제가 코딩한 소스는 밑에처럼 했는데 색이 지 맘대로 변경돼네요... ㅜ_ㅜ

//클릭한 셀의 인덱스와 데이타를 담아놓기위한 전역변수선언
private
chk : Integer;
chkString : String;


procedure TFrmARB_TCPAdmin.DBgTcpInfoMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
inherited;
chk := DBgTcpInfo.SelectedIndex;

chkString := DBgTcpInfo.Fields[chk].AsString;
end;

procedure TFrmARB_TCPAdmin.DBgTcpInfoDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
inherited;

with DBgTcpInfo, DBgTcpInfo.Canvas do
begin
   if (DataCol = chk) and
      (Field[chk].AsString <> chkString) then
   begin
     DBgTcpInfo.Canvas.Brush.Color := $00D6FFC8;
     DBgTcpInfo.DefaultDrawColumnCell(Rect, DataCol, Column, []);
   end;
end;
end;

고수님들 제발 방법좀 갈쳐주세요 부탁드립니다....