if (InputQuery("Заголовок окна", "Надпись в окне", st)) //st-переменная в которую попадает введённое значение
{
if (st=="0000-1111")
{
ShowMessage("Ключ верный");
}
}