[egorval]

Я уже лет 5 не занимался всем этим что-то помню, а вот с файлами есть проблемка

Код:

var 
procedure loaddata();
procedure savedata();

procedure loaddata();
var f:TextFile;
     FileName : String;
begin
  AssignFile(f,Filename);
  Rewrite(f);
  readln(f, Edit1.Text);
  CloseFile(f);

end;
procedure savedata();
var f:TextFile;
     FileName : String;
begin
  AssignFile(f,Filename);
  Rewrite(f);
  writeln(f, Edit1.Text);
  CloseFile(f);

end;

lmikle:
1. Пользуемся тегами.
2. Так работать не будет. Дело в том, что Text - это property. С ним так поступать не рекомендуется. Ниже написал сами функции.