diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index 2dcdb22a..bc111b77 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -1025,12 +1025,10 @@ begin
       str := TStringList.Create;
       try
         str.LoadFromFile(fFilename);
-        ClearAll;
-        if str.Count > 0 then
-        begin
-          DoCopyToClipboard(str.Text);
-          PasteFromClipboard;
-        end;
+        SelectAll;
+        SelText:= str.Text;
+        SelStart:=0;
+        SelEnd:=0;
         fModified := true;
       finally
         str.Free;