diff --git a/source/bineditor.pas b/source/bineditor.pas
index 28456ee6..5a578972 100644
--- a/source/bineditor.pas
+++ b/source/bineditor.pas
@@ -67,7 +67,8 @@ end;
 
 procedure TfrmBinEditor.SetFont(font: TFont);
 begin
-  memoText.Font := font;
+  memoText.Font.Name := font.Name;
+  memoText.Font.Size := font.Size;
 end;
 
 procedure TfrmBinEditor.FormCreate(Sender: TObject);
diff --git a/source/texteditor.pas b/source/texteditor.pas
index 517b7dcc..c1978d73 100644
--- a/source/texteditor.pas
+++ b/source/texteditor.pas
@@ -68,7 +68,8 @@ end;
 
 procedure TfrmTextEditor.SetFont(font: TFont);
 begin
-  memoText.Font := font;
+  memoText.Font.Name := font.Name;
+  memoText.Font.Size := font.Size;
 end;
 
 procedure TfrmTextEditor.FormCreate(Sender: TObject);