[Страдалецъ]

Ну вы блин даете! Нужно просто сделать форму ввода пароля и все. Кто сказал про шифрование текста? Вот простейший вариант:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
 if InputBox('Доступ','Введите пароль','') <> 'пароль'
 then Halt;
end;