Не работает цикл проверки на наличие неверных символов

[_Engine_]

А при отрисовке вот эту строчку прописал?

sg.Rows[ARow].Objects[ACol] := TObject(clRed);

[artemavd]

Эх... . Че ж не получается-то у меня. Вот, я добавил вашу строчку сюда:

procedure TForm1.RzStringGrid2DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
 c, q,c2,q2: integer;
 k,k2: double;
 ACol2,ARow2: integer;
begin
 //äëÿ ïåðâîãî è íåïóñòîãî ñòîëáöà
 if (ARow < 1) or (RzStringGrid2.Cells[ACol, ARow] = '') then exit;
  RzStringGrid2.canvas.brush.Color := clWhite;

  val(RzStringGrid2.Cells[ACol, ARow], k, q);
  if q <> 0 then begin//åñëè îøèáêà
    if ACol = 1 then//öâåò äëÿ ïåðâîãî ñòîëáöà
      RzStringGrid2.Canvas.Brush.color := clRed;
    if ACol = 2 then//äëÿ âòîðîãî
      RzStringGrid2.Canvas.Brush.color := clRed;
    if ACol = 3 then//äëÿ âòîðîãî
      RzStringGrid2.Canvas.Brush.color := clRed;
    if ACol = 4 then//äëÿ âòîðîãî
      RzStringGrid2.Canvas.Brush.color := clRed;
    RzStringGrid2.Rows[ARow].Objects[ACol] := TObject(clRed);
    RzStringGrid2.canvas.fillRect(Rect);
    RzStringGrid2.canvas.TextOut(Rect.Left,Rect.Top,RzStringGrid2.Cells[ACol,ARow]);
  end;
end;

и код, который должен срабатывать по клавише Enter:

procedure TForm1.RzStringGrid2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
 ACol,ARow: integer;
begin
 case Key of
   13 : begin
          ACol := Form1.RzStringGrid2.Col;
          ARow := Form1.RzStringGrid2.Row;
          if assigned(Form1.RzStringGrid2.Rows[ARow].Objects[ACol]) then
            if Form1.RzStringGrid2.Rows[ARow].Objects[ACol] = TObject(clRed) then
            begin
              for ACol := ACol + 1 to Form1.RzStringGrid2.ColCount - 1 do
                if Form1.RzStringGrid2.Rows[ARow].Objects[ACol] = TObject(clRed) then
                begin
                  Form1.RzStringGrid2.Col := ACol;
                  Form1.RzStringGrid2.Row := ARow;
                  Exit;
                end;
              for ARow := ARow + 1 to Form1.RzStringGrid2.RowCount - 1 do
                for ACol := 0  to Form1.RzStringGrid2.ColCount - 1 do
                  if Form1.RzStringGrid2.Rows[ARow].Objects[ACol] = TObject(clRed) then
                  begin
                    Form1.RzStringGrid2.Col := ACol;
                    Form1.RzStringGrid2.Row := ARow;
                    Exit;
                  end;
            end;
        end;
  end;
end;

[_Engine_]

Вот полностью исходник

[artemavd]

Вот сейчас работает). Спасибо. А только вопрос. У меня теперь сейчас почему-то RzStringGrid мерцает. Это с чем связано?

[_Engine_]

в он OnCreate формы
RzStringGrid2.DoubleBuffered := true

[artemavd]

Поставил, но теперь в гриде не появляется курсор когда я нажимаю на ячейку и нет символической пунктирной маленькой рамки вокруг ячейки когда обычно нажимаешь на нее. Если убираю код выше, то отображается все, но мерцает.

[_Engine_]

А если попробовать перед отрисовкой поставить
DefaultDrawing := false;
а в конце отрисовки
DefaultDrawing := true;

Или попробуй немного другой вариант. Вот исходник

[artemavd]

В исходники не все файлы. Поставил эти свойства. Тепер получается только, что мерцает только красные ячейки. Больше ничего не мерцает.

[_Engine_]

а DoubleBuffered при этом попробуй включить

[artemavd]

Включил. Но когда переходишь на красную ячейку, то она становится белой и значения в ячейке не видно. Редактировать то при это можно, но значения не видно.