Записать данные в текстовый файл

type sved=record 
Ntov,Str1,data:string[20]; 
colzak,cpok1,cprod1,sklad:byte; 
end; 
var 
f: textfile; 
f_im :string; 
zap: sved;
 
procedure TForm1.BitBtn1Click(Sender: TObject); 
begin 
case bitbtn1.tag of 
0: 
begin 
AssignFile(f,'file'); 
Rewrite(f,1); 
if combobox1.Text='' then 
begin 
showmessage('Введите наименование товара!'); 
combobox1.SetFocus; 
exit 
end; 
n:=n+1; 
setlength(A,n); 
A[n-1].ntov:=combobox1.items[combobox1.itemindex]; 
 
stringgrid1.Cells[0,stringgrid1.RowCount-1]:=combobox1.items[combobox1.itemindex]; 
combobox1.Enabled:=false; 
combobox2.Enabled:=true; 
combobox2.setfocus; 
bitbtn1.Tag:=1; 
end; 
1: 
begin 
if combobox2.Text='' then 
begin 
showmessage(Введите страну изготовления'!'); 
combobox2.SetFocus; 
exit 
end; 
A[n-1].str1:=combobox2.items[combobox2.itemindex]; 
stringgrid1.Cells[1,stringgrid1.RowCount-1]:=combobox2.items[combobox2.itemindex]; 
combobox2.Enabled:=false; 
edit2.Enabled:=true; 
edit2.SetFocus; 
bitbtn1.Tag:=2; 
end; 
2: 
begin 
if edit2.Text='' then 
begin 
showmessage('Введите количество закупок товара!'); 
edit2.SetFocus; 
exit 
end; 
a[n-1].colzak:=strtoint(edit2.Text); 
stringgrid1.Cells[2,stringgrid1.RowCount-1]:=edit2.Text; 
edit2.Enabled:=false; 
edit1.Enabled:=true; 
edit1.SetFocus; 
bitbtn1.Tag:=3; 
end; 
3: 
begin 
if edit1.Text='' then 
begin 
showmessage('Введите цену покупки за единицу товара!'); 
edit1.SetFocus; 
exit 
end; 
a[n-1].cpok1:=strtoint(edit1.Text); 
stringgrid1.Cells[3,stringgrid1.RowCount-1]:=edit1.Text; 
edit1.Enabled:=false; 
edit3.Enabled:=true; 
edit3.SetFocus; 
bitbtn1.Tag:=4; 
end; 
4: 
begin 
if edit3.Text='' then 
begin 
showmessage('Введите цену продажи за единицу товара!'); 
edit1.SetFocus; 
exit 
end; 
a[n-1].cprod1:=strtoint(edit3.Text); 
stringgrid1.Cells[4,stringgrid1.RowCount-1]:=edit3.Text; 
edit3.Enabled:=false; 
edit4.Enabled:=true; 
edit4.SetFocus; 
bitbtn1.Tag:=5; 
end; 
5: 
begin 
if edit4.Text='' then 
begin 
showmessage('Введите количество товара на складе!'); 
edit4.SetFocus; 
exit 
end; 
a[n-1].sklad:=strtoint(edit4.Text); 
stringgrid1.Cells[5,stringgrid1.RowCount-1]:=edit4.Text; 
edit4.Enabled:=false; 
maskedit1.Enabled:=true; 
maskedit1.SetFocus; 
bitbtn1.Tag:=6; 
end; 
6: 
begin 
A[n-1].data:=maskedit1.Text; 
stringgrid1.Cells[6,stringgrid1.RowCount-1]:=maskedit1.Text; 
maskedit1.Enabled:=false; 
combobox1.Enabled:=true; 
combobox1.SetFocus; 
stringgrid1.RowCount:=stringgrid1.RowCount+1; 
button4.Enabled:=true; 
bitbtn1.Tag:=0; 
write(f,zap); 
memo1.Lines.Add(inttostr(zap)); 
end; 
end; 
end;

var f:TextFile;
    zap:sved;
............................
begin
AssignFile(f,'Tovary.txt');
Rewrite(f);
//вводишь все поля очередной записи
with zap do
writeln(f,Ntov,' ',Str1,' ',data,' ',colzak,',' ,cpok1,' ',cprod1,' ',sklad);
//ввел все
CloseFile(f);
end;

while not (eof(f)) do 
begin 
readln(f,txt); 
s:= ''; 
p:=stringgrid1.ColCount; 
for i:= 1 to Length(txt) do 
if pos(txt[i],' ')=0 then s:=s+txt[i] 
else if s<>'' then begin 
stringgrid1.cells[m,1]:=s; 
m:=m+1; 
p:=p+1; 
stringgrid1.rowCount:=m; 
button2.Enabled:=false; 
s:=''; 
end; 
end;

const fname='111.txt';//файл в папке с программой
procedure TForm1.Button1Click(Sender: TObject);
var n,m,k,i:integer;
    s:string;
    t:textfile;
begin
//посчитаем количество записей в файле и макс. кол слов в строке
assignfile(t,fname);
reset(t);
n:=0;
m:=0;
while not eof(t) do
 begin
  readln(t,s);
  n:=n+1;
  k:=0;
  for i:=1 to length(s) do
  if s[i]=';' then k:=k+1;
  if k>m then m:=k;
 end;
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=m;
//грузим файл в нулевой столбец таблицы
StringGrid1.Cols[0].LoadFromFile(fname);
//разбиваем строки по колонкам
for i:=0 to StringGrid1.RowCount-1 do
 begin
  StringGrid1.Rows[i].Delimiter:=' ';   //задаем символ-разделитель столбцов
  StringGrid1.Rows[i].DelimitedText:=StringGrid1.Cells[0,i];
 end;
end;

with zap do 
writeln(f,combobox2.items[combobox2.itemindex]); 
writeln(f,edit2.Text); 
writeln(f,edit1.Text); 
writeln(f,edit3.Text); 
writeln(f,edit4.Text); 
writeln(f,edit7.Text);