diff --git a/main.go b/main.go
index c158a4e..81cfbe8 100644
--- a/main.go
+++ b/main.go
@@ -41,6 +41,7 @@ func (f *TMainForm) OnFormCreate(sender vcl.IObject) {
 	f.ImageList = loadImages(f)
 
 	f.SetCaption("yvbolt")
+	f.ImageList.GetIcon(imgDatabaseLightning, f.Icon())
 
 	mnuFile := vcl.NewMenuItem(f)
 	mnuFile.SetCaption("File")