сохранение\загрузка в компоненте StringGrid

[Lorden]

здраствуйте! подскажити пожалуйста как сделать сохранение и загрузку файлов через компонент в StringGrid вот имеется такой код:

procedure TForm1.FormShow(Sender: TObject);
begin
StringGrid1.Cells[0,0]:='Наименование товара';
StringGrid1.Cells[1,0]:='Цена';
StringGrid1.Cells[2,0]:='Кол-во на складе';
StringGrid1.Cells[3,0]:='Продано';
StringGrid1.Cells[4,0]:='Осталось';
StringGrid1.Cells[5,0]:='Касса';
StringGrid1.Cells[0,1]:='Чай';
StringGrid1.Cells[1,1]:='13';
StringGrid1.Cells[2,1]:='3';
StringGrid1.Cells[3,1]:='0';

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Cells[4,1]:=IntToStr(StrToInt(StringGrid1.Cells[2,1])-StrToInt(StringGrid1.Cells[3,1]));
StringGrid1.Cells[5,1]:=IntTOStr(StrTOInt(StringGrid1.Cells[1,1])*StrToInt(StringGrid1.Cells[3,1]));

end;

при нажатии на кнопку должно произойти вычисление и при нажатии кнопки сохранить нужно сохранить изменёные данные на жоский диск вот только незнаю как это реализовать подскажити пожалуйста.
заранее благодарю

[dr.Chas]

uses iniFiles;

//записываем
var Ini : TiniFile;
    i,j,k : integer;
begin
  Ini:=TIniFile.Create(Application.GetNamePath+'Fails\ss.ini');
  k:=0;
  for i:=0 to 2 do
    for j:=0 to 2 do
    begin
      Ini.WriteString('StingGrid.Cells', 'index_'+IntToStr(k), StringGrid1.Cells[i,j]);
      inc(k);
    end;

  Ini.Destroy;
end;

//читаем
var ini : TIniFile;
    i,j, k : integer;
begin
  Ini:=TIniFile.Create(Application.GetNamePath+'Fails\ss.ini');
  k:=0;
  for i:=0 to 2 do
    for j:=0 to 2 do
    begin
      StringGrid1.Cells[i,j]:=Ini.ReadString('StingGrid.Cells', 'index_'+IntToStr(k), '0');
      inc(k);
    end;
end;

Смотришь в поиске "работа с ini файлами". Инфы много разобраться легко.