[tadalex]

Что-то не получается. Может по коду легче будет подсказать?

Код:

unit LogonForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, SecurityModul, Vcl.Buttons,
  Vcl.Imaging.pngimage;

type
  Tfrm_Logon = class(TForm)
    btn_Cancel: TBitBtn;
    btn_Ok: TBitBtn;
    edt_Login: TEdit;
    edt_Password: TEdit;
    img_Close: TImage;
    img_Open: TImage;
    lbl_Login: TLabel;
    lbl_Password: TLabel;

    procedure btn_OkClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure StringsChange(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btn_CancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private
    { Private declarations }
  protected
    status: byte;
    fw: TFileWork;
  public
    procedure WMTIMER(var Msg: TMessage); message WM_TIMER;
    property success: byte read status write status;
  end;

var
  frm_Logon: Tfrm_Logon;
  count: integer;

implementation

uses MainForm;

{$R *.dfm}

procedure Tfrm_Logon.btn_OkClick(Sender: TObject);
begin
  if fw.CheckUser(edt_Login.Text, edt_Password.Text) then
  begin
    fw.AddInLog(edt_Login.Text, edt_Password.Text, true);
    img_Close.Visible := false;
    img_Open.Visible := true;
    status := 0;
    close;
  end
  else
  begin
    inc(count);
    if count = 3 then
    begin
      fw.AddInLog(edt_Login.Text, edt_Password.Text, false);
      status := 1;
      close;
    end
    else
      Application.MessageBox
        (PChar('Вы ввели неправильный логин\пароль ' + inttostr(count)
            + ' раз(а) (еще ' + inttostr(3 - count)
            + ' раз(а) можно ошибиться)'), 'Защита');
  end;
end;

procedure Tfrm_Logon.StringsChange(Sender: TObject);
begin
  if (length(edt_Login.Text) = 0) or (length(edt_Password.Text) = 0) then
  begin
    btn_Ok.Enabled := false;
  end
  else
  begin
    btn_Ok.Enabled := true;
  end
end;

procedure Tfrm_Logon.btn_CancelClick(Sender: TObject);
begin
  Close;
end;

procedure Tfrm_Logon.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  AnimateWindow(handle, 1000, AW_BLEND or AW_HIDE);  //Закрытие с задержкой но и анимацией. А мне надо просто закрыть с задержкой
end;

procedure Tfrm_Logon.FormCreate(Sender: TObject);
begin
  status := 2;
  count := 0;
  StringsChange(self);
  fw := TFileWork.Create;
end;

procedure Tfrm_Logon.FormDestroy(Sender: TObject);
begin
  fw.Free;
end;

end.