你需要：
var: oldcellString: string;
1. 用变量 oldCellString 保存先前的 Cell的 值，在
procedure TF.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
oldCellString:=cells[string1.Col,string1.Row];
end;
2.以后就可以放心地使用 oldCellString了
我试过可以，给分吧！
