Otwieranie drugiego formularza po podaniu hasła

Aby otwarcie jakiegoś formularza było zależne od podania hasła umieszczamy na formularzu głównym komponent TEdit, ustawiamy jego właściwość PasswordChar = *, i tworzymy zdarzenie OnKeyDown dla tego komponentu, które sprawdza poprawność wpisanego hasła po wciśnięciu klawisz Enter (if (Key == VK_RETURN && Edit1->Text == "haslo")), na początku pliku formularza głównego należy dołączyć plik nagłówkowy formularza Form2:

Unit1.cpp

#include "Form1.h"

void __fastcall TForm1::Edit1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
   if (Key == VK_RETURN && Edit1->Text == "haslo")
   Form2->Show();
}