Запись таблицы в файл

[Пони-плакса]

Помогите записать таблицу в файл!!!!Пожалуйста!!!!Саму таблицу сделала.Теперь необходимо записать ее в файл,создать кнгопки,чтобы можно было сортировать по ко-ву,цене.А так же сохранять и удалять некоторые элементы из файла.Вот текст программы

procedure TForm1.StringGrid1Click(Sender: TObject);
var
i,j:integer;
a,x,y,z:extended;
begin
Stringgrid1.Cells[1,0]:='Тип';
stringgrid1.Cells[2,0]:='Цена';
stringgrid1.Cells[3,0]:='Кол-во';
stringgrid1.Cells[4,0]:='Всего';

stringgrid1.Cells[1,1]:='Зленый';
stringgrid1.Cells[1,2]:='Черный';
stringgrid1.Cells[1,3]:='Красный';
stringgrid1.Cells[1,4]:='Белый';

for i:=1 to Stringgrid1.RowCount do begin
for j:=1 to stringgrid1.RowCount do begin
if stringgrid1.Cells[j,i]='' then stringgrid1.Cells[j,i]:='0';
end;
end;

for i:=1 to Stringgrid1.RowCount do begin
a:=strtofloat(stringgrid1.Cells[2,i]);
x:=strtofloat(stringgrid1.Cells[3,i]);
y:=strtofloat(stringgrid1.Cells[2,i]);
z:=strtofloat(stringgrid1.Cells[3,i]);
stringgrid1.Cells[4,i]:=floattostr((x*a));

end;
end;
end.