怎样把StringGrid1中显示的全部数据保存在一个文件中(100分)

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
I, J, K : Integer;
begin
K := 0;
with StringGrid1 do
for I := 0 to ColCount - 1 do
for J:= 0 to RowCount - 1 do
begin
K := K + 1;
Cells[I,J] := IntToStr(K);
end;
怎样把StringGrid1中显示的全部数据保存在一个文件中。

f: file of text//textfile
for i:
for j:
fwrite(...

我搞定了：）