非常着急！请问在STRINGGRID中如何判断列值重复并且警告！求源码并尽可能给分！

procedure TfrmSL.sgYSCMSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
var iRows:Integer;
beginif ACol = 1  then
begin
  for iRows :=1 to stringgrid1.rowcount-1 do
  begin
  if stringgrid1.cells[1,i]=stringgrid1.Cells[1,stringgrid1.RowCount] then
  showmessage('物料编号重复，请重新输入！');
  exit;
  end;
end; 
end;