Код:
var
f: textfile;
begin
assignfile(f, 'lalala.txt');
rewrite(f);
writeln(f, '32.13');
writeln(f, 'День рождение Васи Пупкина');
closefile(f);
end;
это мы пишем.. теперь читаем
Код:
var
f: textfile;
tmp: string;
begin
assignfile(f, 'lalala.txt');
reset(f);
readln(f, tmp);
edit1.text := tmp;
readln(f, tmp);
edit2.text := tmp;
closefile(f);
end;
для мемо используешь цикл.
чтение: while not eof(f) do
//
запись: for i:=0 to memo1.lines.count-1 do
разбирайся...