у эдита ставишь свойство passwordchar равным *
простая проверка
if pass=edit1.text then application.MessageBox(PChar('твое сообщение'),'заголовок')
else exit;