procedure TForm4.PerformFileOpen(const AFilename: String) begin if OpenDialog1.Execute then begin FFilename := OpenDialog1.FileName; RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); RichEdit1.SetFocus; RichEdit1.Modified := False; end; end;
----------------------------------------------