[lmikle]

Код:

var
  S : String;
begin
  S := StringGrid1.Cells[I,J]; // Считывание
  StringGrid1.Cells[I,J] := S; // Запись
end;