procedure TFicheEdition.Ouvrir1Click(Sender: TObject);
begin
  if OpenDialog.Execute then begin
    Document.Lines.LoadFromFile(OpenDialog.FileName); //charge le fichier dans le mémo
    Document.SelStart :=0 //remet le curseur au début du texte
  end;
end;

procedure TFicheEdition.Enregistrersous1Click(Sender: TObject);
begin
  if SaveDialog.Execute then begin
    Document.Lines.SaveToFile(SaveDialog.FileName);
  end;
end;

procedure TFicheEdition.Enregistrer1Click(Sender: TObject);
begin
  // Si c'est la première fois que l'on sauve le fichier, le programme affiche
  // la boite de sauvegarde.
  If OpenDialog.FileName<>'' then
    Document.Lines.SaveToFile(OpenDialog.FileName)
  else Enregistrersous1Click(Sender);
end;

procedure TFicheEdition.Nouveau1Click(Sender: TObject);
begin
  Document.Clear;
end;

Uses
  ..., Printers;
...
procedure TFicheEdition.Imprimer1Click(Sender: TObject);
var
  Text: TextFile;
  NbLignes, i: integer;
begin
  NbLignes:=Document.Lines.Count; // compte le nombre de lignes à imprimer

  AssignPrn(Text);  // on utilise ici l'imprimante comme s'il s'agissait d'écrire dans un fichier
  Rewrite(Text);

  i:=0; // commence à partir de la ligne 0
  Repeat
    WriteLn(Text, Document.Lines[i]);
    i:= i+1;         // incrémente d'une ligne
  until i= NbLignes; // jusqu'à la dernière ligne
  CloseFile(Text);
end;

procedure TFicheEdition.Quitter1Click(Sender: TObject);
begin
  Close;
end;

procedure TFicheEdition.Couper1Click(Sender: TObject);
begin
  Document.CutToClipboard;
end;

procedure TFicheEdition.Copier1Click(Sender: TObject);
begin
  Document.CopyToClipboard;
end;

procedure TFicheEdition.Coller1Click(Sender: TObject);
begin
  Document.PasteFromClipboard;
end;