var
Form1: TForm1;
Ruta: String;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Ruta:= 'C:\Notas1.txt';
Memo1.Lines.SaveToFile(Ruta);
Memo1.Lines.Clear;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Ruta:= 'C:\Notas1.txt';
Memo1.Lines.LoadFromFile(Ruta);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Ruta:= 'C:\Notas1.txt';
DeleteFile(Ruta);
end;