请教：怎么遍历Excel工作表的单元格，怎么取得Excel工作表中的所有单元格中的字符。谢谢(50分)

为什么下面的代码不行？
var
r, c, RowsCount, ColumnsCount: Integer;
begin
RowsCount := ExcelWorksheet1.UsedRange[GetUserDefaultLCID].Rows.Count;
ColumnsCount := ExcelWorksheet1.UsedRange[GetUserDefaultLCID].Columns.Count;
for r := 1 to RowsCount do
for c := 1 to ColumnsCount do
Edit1.Text := ExcelWorksheet1.Cells.Item[r, c];
//以下代码略....
end;
为什么我在Edit中得到的字符窜总是为空？

这个问题我自己已经搞定了，谢谢大家。

怎么搞定的？

Edit1.Text := ExcelWorksheet1.Cells.Item[r, c].Value;
粗心大意。

接受答案了。