Добро пожаловать на наш портал

//открываем документ
procedure TMainForm.FileOpen(Sender: TObject);
begin
if OpenDialog.Execute then
Memo1.Lines.LoadFromFile(OpenDialog.FileName);
S:=OpenDialog.FileName; //переменная S имеет формат String.
end;

//кнопка "сохранить как..."
procedure TMainForm.FileSaveAs(Sender: TObject);
begin
if SaveDialog.Execute then
Memo1.Lines.SaveToFile(SaveDialog.FileName);
S:=SaveDialog.FileName;
end;

//сохраняем измененный документ
procedure TMainForm.FileSave(Sender: TObject);
begin
memo1.Lines.SaveToFile(s);
end;

//вырезать
procedure TMainForm.EditCut(Sender: TObject);
begin
Memo1.CutToClipboard;
end;

//копирование
procedure TMainForm.EditCopy(Sender: TObject);
begin
Memo1.CopyToClipboard;
end;

//вставить
procedure TMainForm.EditPaste(Sender: TObject);
begin
memo1.PasteFromClipboard;
end;