1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TFrame123.schreibschutz(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin

  if isLockedCell(ACol,ARow) then
  begin
    StringGridArbeitsschritteKosten.Options := StringGridArbeitsschritteKosten.Options - [goEditing];
  end else
     StringGridArbeitsschritteKosten.Options := StringGridArbeitsschritteKosten.Options + [goEditing];

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TFrame123.grauFaerben(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if isLockedCell(ACol,ARow) then
  begin
    with StringGridArbeitsschritteKosten do
    begin
      Canvas.Brush.Color := clBtnFace;
      Canvas.FillRect(Rect);
      Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);
    end;
  end;  
end;					

1:
2:

if isNumeric(StringGrid123.Cells[Acol,arow]) then
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Function isNumeric(s: String): Boolean;
  var
 i : Integer;
begin
 if s = '' then
 begin
  result := false;
  exit;
 end;
 i := 1;
 result := True;
 while (i <= Length(s)) and ( (s[i] in ['0'..'9']) OR (s[i] = DecimalSeparator) ) do
 begin
   Inc(i);
 end;
 if (i <= Length(s)) and (Not ( (s[i] in ['0'..'9']) OR (s[i] = DecimalSeparator) )) then
      result := False;
END;