StringGrid. Сохранить в текстовый файл определённые столбцы ( Delphi )

[hrustnik]

Всем привет, у меня есть СтрингГрид
в 1 столбце - x
в 2 столбце - y
в 3 нумерация
как сделать что когда сохраяешь в txt фаил, то сохраняет только 1 и 2 столб.
код сохранения есть, надо условие, что бы 3 столб не сохранял

procedure TForm1.Button2Click(Sender: TObject);
begin
if SaveDialog1.Execute then begin
AssignFile(f, SaveDialog1.FileName);
Rewrite(f);

for i := 0 to StringGrid1.RowCount-1 do
  begin
for j := 0 to StringGrid1.ColCount-1 do
begin
  s1:=s1 + '   ' + StringGrid1.Cells[j,i];
end;
writeln(f,s1);
s1:=''
  end;

end;
CloseFile(f);
end;

[Stilet]

procedure TForm1.Button2Click(Sender: TObject);
begin
if SaveDialog1.Execute then begin
AssignFile(f, SaveDialog1.FileName);
Rewrite(f);

for i := 0 to StringGrid1.RowCount-1 do
   writeln(f,StringGrid1.Cells[0,i],StringGrid1.Cells[1,i]);

CloseFile(f);
end;

[Utkin]

StringGrid1.Cells[j,i];

j - столбец, i - строка.

for j := 0 to StringGrid1.ColCount-1 do

- перебирать столбцы начиная от нулевого до последнего.