diff --git a/bepascal/source/bepascal/cpp/src/be/interface/View.cpp b/bepascal/source/bepascal/cpp/src/be/interface/View.cpp
index 452a263..1af4a9c 100644
--- a/bepascal/source/bepascal/cpp/src/be/interface/View.cpp
+++ b/bepascal/source/bepascal/cpp/src/be/interface/View.cpp
@@ -303,7 +303,7 @@ TCPlusObject BView_Create_1(TPasObject PasObject,
 
 void BView_Free(TCPlusObject View)
 {
-	delete View;
+	delete reinterpret_cast<BView*>(View);
 }
 
 /***********************************************************************
diff --git a/bepascal/source/bepascal/cpp/src/be/interface/Window.cpp b/bepascal/source/bepascal/cpp/src/be/interface/Window.cpp
index 0b938e0..946d956 100644
--- a/bepascal/source/bepascal/cpp/src/be/interface/Window.cpp
+++ b/bepascal/source/bepascal/cpp/src/be/interface/Window.cpp
@@ -90,7 +90,7 @@ TCPlusObject BWindow_Create_1(TPasObject PasObject,
 
 void BWindow_Free(TCPlusObject Window)
 {
-	delete Window;
+	delete reinterpret_cast<BWindow*>(Window);
 }
 
 void BWindow_Show(TCPlusObject Window)