[[coso]]

Hola, puedes tal como dice caro, capturar en el OnKeyDown

Código Delphi [-]
procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
        if Key = 188 then Key := Word('.');
end;

o bien, justo en el principio del onsetedittext

Código Delphi [-]
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
var 
s : string;
begin
           s := stringreplace(value,',','.',[rfReplaceAll,rfIgnorecase]);
           try
                calculos_varios(strtofloat(s));
           except
           end;

end;