[Alegun]

Выходит вам блокнот нужон

Тогда замените клик кнопки на

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 f:file of sved;
 b:sved;
 i: integer;
 sl: TStrings;
 begin
 sl:= TStringList.Create;
 AssignFile(f, Edit8.Text);
 if FileExists(Edit8.Text) then Reset(f) else Rewrite(f);

for i:= 0 to Memo1.Lines.Count-1 do
 begin
 sl.DelimitedText:=Memo1.Lines[i];

 with b do
begin
 fam := sl[0];     {polia zapisi}
 im  := sl[1];
 ot  := sl[2];
 god := StrToInt(sl[3]);
 dol := sl[4];
 staj:= StrToFloat(sl[5]);
 obr := sl[6];
end;
//seek (f, filesize(f));
Write(f, b);
end;
Closefile(f);
sl.Free;
end;

и выкиньте с формы лишние лейбл-едитные элементы.

Правило такое - одна строка в мемо это одна запись в файле, пример

Andrew Atcheson Ia 1980 master 5 vishee
And Atchen Sn 1980 master 5 vishee
rew cheson In 1980 master 5 srednee
Ivanov Igor Bor 1970 master 20 vishee
Petrov Sergey Ser 1966 master 3 vishee