1 files changed, 1 insertions, 0 deletions
diff --git a/ide/fpmopts.inc b/ide/fpmopts.inc
index ff44f11a3f..38e3418524 100644
--- a/ide/fpmopts.inc
+++ b/ide/fpmopts.inc
@@ -972,6 +972,7 @@ var R,R2: TRect;
     i : word;
 begin
   New(C, Init(10,50));
+  CurVP:=nil;
   for i:=0 to GetVideoModeCount-1 do
    begin
       GetVideoModeData(i,VM);