Пропала иконка с пуска

unit Avtorizatcya;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Imaging.pngimage,
  Vcl.ExtCtrls;
 
type
  TLogin = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Login: TLogin;
 
implementation
 
{$R *.dfm}
 
uses DM, Main;
 
procedure TLogin.Button1Click(Sender: TObject);
begin
DM_Main.QueryUser.Active:=false;
DM_Main.QueryUser.SQL.Clear;
DM_Main.QueryUser.SQL.Add('SELECT * FROM Авторизация WHERE (((Авторизация.Логин)=login) AND ((Авторизация.Пароль)=pass));');
  if ( Login.combobox1.Text <> '') and (Login.Edit1.Text <> '')then
    begin
      DM_Main.QueryUser.Parameters.ParamByName('login').Value:=Combobox1.Text;
      DM_Main.QueryUser.Parameters.ParamByName('pass').Value:=Edit1.Text;
      Try
         DM_Main.QueryUser.Open;
      Except
         ShowMessage('Не удалось открыть таблицу пользователей!');
         Exit;
    End;
      if  DM_Main.QueryUser.Active and (DM_Main.QueryUser.RecordCount > 0) then
        begin
 
          ModalResult:=mrOk
 
 
        end
  else
    ShowMessage('Неправильное имя пользователя или пароль!');
    DM_Main.QueryUser.SQL.Clear;
    DM_Main.QueryUser.Active:=False;
  end
   else
    ShowMessage('Имя пользователя и пароль не могут быть пустыми!');
 
end;
 
procedure TLogin.Button2Click(Sender: TObject);
begin
close;
end;
 
procedure TLogin.Edit1Enter(Sender: TObject);
begin
edit1.Text:='';
end;
 
procedure TLogin.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key=VK_RETURN then
Button1.Click;
end;
 
procedure TLogin.FormShow(Sender: TObject);
begin
  DM_Main.QueryUser.Refresh;
  ComboBox1.Clear;
  DM_Main.QueryUser.FindFirst;
  while not DM_Main.QueryUser.Eof do
    begin
      ComboBox1.Items.Add(DM_Main.QueryUser.FieldByName('Логин').AsString);
      DM_Main.QueryUser.Next;
    end;
end;
 
end.

program Invent4;
 
uses
  Vcl.Forms,
  Vcl.Controls,                           // это добавили!
  Main in 'Main.pas' {MainForm},
  DM in 'DM.pas' {DM_Main: TDataModule},
  Oborudovaniye in 'Oborudovaniye.pas' {Obr},
  eCard in 'eCard.pas' {CardEdit},
  eInvent in 'eInvent.pas' {InventEdit},
  Sotrudniki in 'Sotrudniki.pas' {Sotr},
  eSotrudniki in 'eSotrudniki.pas' {eSotr},
  Dolzhnosti in 'Dolzhnosti.pas' {Post},
  eDolzhnosti in 'eDolzhnosti.pas' {ePost},
  Scheta in 'Scheta.pas' {Schet},
  eScheta in 'eScheta.pas' {eSchet},
  Cabineti in 'Cabineti.pas' {Cab},
  eCabineti in 'eCabineti.pas' {eCab},
  Avtorizatcya in 'Avtorizatcya.pas' {Login},
  Vcl.Themes,
  Vcl.Styles;
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TDM_Main, DM_Main);
  With TLogin.Create(Nil) Do        // это добавили!
    If ShowModal<>mrOk Then     // это добавили!
      Begin                                 // это добавили!
      Application.MessageBox('Залогиниться не получилось, программа будет закрыта!', 'Ахтунг!'); // это добавили!
      Exit;                                  // это добавили!
      End;                                  // это добавили!
  Application.MainFormOnTaskbar := True;
  TStyleManager.TrySetStyle('Carbon');
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TObr, Obr);
  Application.CreateForm(TCardEdit, CardEdit);
  Application.CreateForm(TInventEdit, InventEdit);
  Application.CreateForm(TSotr, Sotr);
  Application.CreateForm(TeSotr, eSotr);
  Application.CreateForm(TPost, Post);
  Application.CreateForm(TePost, ePost);
  Application.CreateForm(TSchet, Schet);
  Application.CreateForm(TeSchet, eSchet);
  Application.CreateForm(TCab, Cab);
  Application.CreateForm(TeCab, eCab);
  Application.Run;
end.