> Германн ©   (19.02.17 02:17) [19]

> приведу в 100501 раз пример кода.

Некошерно. Лучше уж по нашему, по дельфийски:

type
 TFormMain = class(TFormMain)
 private
   { Private declarations }
 public
   { Public declarations }
   constructor Create(AOwner: TComponent); override;
 end;

implementation

{$R *.dfm}

constructor TFormMain.Create;
var
 InputString : String;
begin
 InputString:= InputBox('Input Box', 'Prompt', 'Password');
 Assert(InputString = 'Password');
 inherited;
end;

--
Regards, LVT.

> ухты ©   (18.02.17 12:33) [18]

>   запусктут как классовую функцию придумал, но не суть )
> а вот проверки декриптов, окошко логина и все что надо внутри

Все уже придумано до нас.
Работаем как обычно, а если что-то пошло не так - бросим исключение.

--
Regards, LVT.

>  Leonid Troyanovsky ©   (19.02.17 17:40) [20]
>
>
> > Германн ©   (19.02.17 02:17) [19]
>
> > приведу в 100501 раз пример кода.
>
> Некошерно. Лучше уж по нашему, по дельфийски

Ну может быть это и "по вашему, по дельфийски".
На мой скус пофигиста широкого профиля нет никакой необходимости выполнять проверку "при создании" главной формы. На мой скус лучше эту проверку выполнять "до создания" главной формы. Ну хотя бы следуя логике программы.

P.S.
Ну и ещё раз. Мне очень не нравится то, что мало кто из новичков не знает что такое файл проекта Дельфи. Пытаюсь в меру сил и возможностей донести до них на форумах для новичков, что сей файл и есть сама программа (основной/главный файл программы).  Иногда получается.

> Германн ©   (20.02.17 02:31) [23]

> сей файл и есть сама программа (основной/главный файл программы)

Допустим, что он основной/главный. Однако, навыки его потрошения
новичкам потребны в самую последнюю очередь.

--
Regards, LVT.