var
  YN_INVEN_NO_SB:array of integer;
  YN_INVEN_NO_MON:array of integer;

procedure SearchDuble;
var
  i:integer;
begin
  BASE.Query.Connection := BASE.Connection;
  BASE.Query.Active:= False;
  BASE.Query.SQL.Clear;
  BASE.Query.SQL.Add('SELECT YN_TD0007 FROM TD0007');
  BASE.Query.SQL.Add('WHERE INVEN_NO_MON in (SELECT INVEN_NO_MON FROM TD0007');
  BASE.Query.SQL.Add('GROUP BY INVEN_NO_MON');
  BASE.Query.SQL.Add('HAVING COUNT(*)>1)');
  BASE.Query.Active:= True;
  SetLength(YN_INVEN_NO_MON, BASE.Query.RecordCount);
  BASE.Query.First;
  if BASE.Query.RecordCount > 0 then begin
    for i:=0 to BASE.Query.RecordCount do begin
      YN_INVEN_NO_MON[i]:=BASE.Query.FieldByName('YN_TD0007').AsInteger;
      BASE.Query.Next;
    end;
  end;

  BASE.Query.Connection := BASE.Connection;
  BASE.Query.Active:= False;
  BASE.Query.SQL.Clear;
  BASE.Query.SQL.Add('SELECT YN_TD0007 FROM TD0007');
  BASE.Query.SQL.Add('WHERE INVEN_NO_SB in (SELECT INVEN_NO_SB FROM TD0007');
  BASE.Query.SQL.Add('GROUP BY INVEN_NO_SB');
  BASE.Query.SQL.Add('HAVING COUNT(*)>1)');
  BASE.Query.Active:= True;
  SetLength(YN_INVEN_NO_SB, BASE.Query.RecordCount);
  BASE.Query.First;
  if BASE.Query.RecordCount > 0 then begin
    for i:=0 to BASE.Query.RecordCount do begin
      YN_INVEN_NO_SB[i]:=BASE.Query.FieldByName('YN_TD0007').AsInteger;
      BASE.Query.Next;
    end;
  end;
end;

procedure TTD0007.FormCreate(Sender: TObject);
begin
  SearchDuble;
end;

procedure TTD0007.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  i: integer;
begin
  if (gdfocused in state) then else begin
    DBGrid1.Canvas.Font.Color:= clBlack;
    DBGrid1.Canvas.Font.Style:=[];
  end;
  if Column.Index = 13 then
    for i := 0 to Length(YN_INVEN_NO_SB) do begin
      if YN_INVEN_NO_SB[i] = BASE.DS_TD0007.DataSet.FieldByName('YN_TD0007').AsInteger then
        if (gdfocused in state) then else begin
          DBGrid1.Canvas.Font.Color := clRed;
          DBGrid1.Canvas.Font.Style:=[fsBold];
        end;
    end;
  if Column.Index = 18 then
    for i := 0 to Length(YN_INVEN_NO_MON) do begin
      if YN_INVEN_NO_MON[i] = BASE.DS_TD0007.DataSet.FieldByName('YN_TD0007').AsInteger then
        if (gdfocused in state) then else begin
          DBGrid1.Canvas.Font.Color := clRed;
          DBGrid1.Canvas.Font.Style:=[fsBold];
        end;
    end;
  DBGrid1.DefaultdRawColumnCell(Rect,DataCol,Column,State);
end;