zapisywanie i otwarzanie w stringgrid

Witam panowiem napisalem program w ktory zapisuje mi i otwarza ale jest blad. Kiedy otwieram zapisany plik i otwieram dane z jednej kolumny sa powielone do reszty kolumn hmmm a chcialbym zeby dane w kolumnach w trakcie zapisu i podczas owierania nie znikaly mi wiem ze moge przypisac pod kolumne plik nazwa.txt ale nie chce tak ba jak bede zapis powielal to dane deda sie kaosac i zapisywac

procedure TForm1.FormCreate(Sender: TObject);
begin
stringgrid1.Cells[0,0]:='Lp';
stringgrid1.Cells[1,0]:='nazwa';
stringgrid1.Cells[2,0]:='liczba';
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if opendialog1.Execute then
stringgrid1.cols[1].LoadFromFile(opendialog1.FileName);
stringgrid1.cols[2].LoadFromFile(opendialog1.FileName);
stringgrid1.Cells[0,0]:='Lp';
stringgrid1.Cells[1,0]:='nazwa';
stringgrid1.Cells[2,0]:='liczba';
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if savedialog1.Execute then
stringgrid1.cols[1].SaveToFile(savedialog1.FileName);
stringgrid1.cols[2].SaveToFile(savedialog1.FileName);
end;

end.
ktos ma panowie pomysl jak to zrobic [???] [!!!] [!!!]

if savedialog1.Execute then
stringgrid1.cols[1].SaveToFile(savedialog1.FileName);
stringgrid1.cols[2].SaveToFile(savedialog1.FileName);

pomysl. zapisujesz do pliku jedna kolumne, i do tego samego druga kolumne.
to samo z odczytem:

stringgrid1.cols[1].LoadFromFile(opendialog1.FileName);
stringgrid1.cols[2].LoadFromFile(opendialog1.FileName);

odczytujesz dane z tego samego pliku wiec sa to te same dane!

pomijam juz fakt blednego (w tym przypadku) uzycia if..then.
poczytaj jakies kursy delphi.