diff options
| -rw-r--r-- | src/gui/fpg_memo.pas | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/gui/fpg_memo.pas b/src/gui/fpg_memo.pas index 05b5a64a..60bade4d 100644 --- a/src/gui/fpg_memo.pas +++ b/src/gui/fpg_memo.pas @@ -223,9 +223,11 @@ end; procedure TfpgMemoStrings.Clear; begin - Memo.BeginUpdate; + if Assigned(Memo) then + Memo.BeginUpdate; inherited Clear; - Memo.EndUpdate; + if Assigned(Memo) then + Memo.EndUpdate; end; |