Travar celula do grid..., ..Quando não digitar nada.

procedure TFrmNovProdutos.DbgGradeColExit(Sender: TObject);
begin
  for a:=0 to DbgGrade.Columns.count-1 do
     begin

        if DbgGrade.SelectedIndex = 01 then
          begin

            if DbgGrade.Fields[01].AsString = ´´ then
              begin
                ShowMessage(´Código da cor é Obrigatório !´);
                exit;
              end;

            ConsultaRegistros(´Cores´, ´Codigo, Descricao´, ´Codigo =´ + DbgGrade.Fields[01].AsString);
            if DtmLoja.QryLoja.RecordCount = 0 then
              begin
                DbgGrade.Fields[01].AsString := ´´;
                ShowMessage(´Cor não Cadastrada !´);
              end
              else
              begin
                DbgGrade.Fields[01].AsString := StrZero(LeDados(´Codigo´), 3);
                DbgGrade.Fields[02].AsString := LeDados(´Descricao´);
              end;

          end;

     end;

end;