[true]

Спасибо, исправил, есть еще один вопрос, есть код для авторизации:

Код:

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  ....
const
   InputBoxMessage = WM_USER + 200;
   
   
  private
   procedure InputBoxSetPasswordChar(var Msg: TMessage); message InputBoxMessage;
    { Private declarations }
   
   
   
procedure TForm1.InputBoxSetPasswordChar(var Msg: TMessage);
 var
   hInputForm, hEdit, hButton: HWND;
 begin
   hInputForm := Screen.Forms[0].Handle;
   if (hInputForm <> 0) then
   begin
     hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil);
     {
      // Change button text:
      hButton := FindWindowEx(hInputForm, 0, 'TButton', nil);
      SendMessage(hButton, WM_SETTEXT, 0, Integer(PChar('Cancel')));
    }
     SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0);
   end;
 end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
s:string;
begin
PostMessage(Handle, InputBoxMessage, 0, 0);
s:= InputBox('Авторизация', 'Введите пароль к программе:', '');
if s<>'22085641'
then begin
 ShowMessage('Неверный пароль');
 halt;
 end
 else
 ShowMessage('Вы удачно авторизовались!');
end;
 

программа загружается и сворачивается в трей, если два раза щелкнуть
то вылазиет инпутбокс но вместе с формой, как сделать что форма при этом не открывалась?