[MOJO]

Программа должна считывать, перезаписывать и добавлять в файл символы, указанные пользователем в поле "мемо"
В поле эдит пишу путь к файлу
Работаю только первая кнопка(считать0, а остальные -нет
вроде все правльно написал
прошу помочь разобраться

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(edit1.Text);
end;
 procedure TForm1.Button2Click(Sender: TObject);
var
   f: Textfile;
 begin
   AssignFile(f, 'C:\ext.txt'); {Assigns the Filename}
   ReWrite(f); {Create a new file named ek.txt}
 //  for i:=0 to Memo1.Lines.Count do
   Writeln(f, 'You have written text into a .txt file');
   Closefile(f); {Closes file F}
 end;

procedure TForm1.Button3Click(Sender: TObject);
 var
   F: Textfile;
 begin
   AssignFile(f, 'c:\text.txt'); {Assigns the Filename}
   Append(f); {Opens the file for editing}
   Writeln(f, 'You have written text into a .txt file');
   Closefile(f); {Closes file F}

end;



end.