<
var
x:char;
begin
x:=StringGrid1.Cells[1,1][1];
StringGrid1.Cells[1,1]:=x;
end;>
<
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
var
x:char;
begin
x:=StringGrid1.Cells[1,1][1];
StringGrid1.Cells[1,1]:=x;
end;
>
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
begin
if Length(Value) > 1 then StringGrid1.Cells[ACol, ARow] := Value[1];
end;