Como Eliminar y crear archivos

[[Caral]]

Hola

Código Delphi [-]
var
  Form1: TForm1;
  Ruta: String;
 
implementation

{$R *.dfm}

// guardar
procedure TForm1.Button1Click(Sender: TObject);
begin
  Ruta:= 'C:\Notas1.txt';
  Memo1.Lines.SaveToFile(Ruta);
  Memo1.Lines.Clear;
end;

// Mostrar
procedure TForm1.Button2Click(Sender: TObject);
begin
  Ruta:= 'C:\Notas1.txt';
 Memo1.Lines.LoadFromFile(Ruta);
  end;

// Eliminar
procedure TForm1.Button3Click(Sender: TObject);
begin
    Ruta:= 'C:\Notas1.txt';
   DeleteFile(Ruta);
end;

Saludos