Таймер

[FranCOder]

Добро времени суток!
Есть две формы, на 1-й форме авторизация, на 2-й уже контент при успешной авторизации. После ввода данных (логин и пароль) у меня выводится в Label текст "Успешно!", мне надо чтобы после появления этого слова, через секунды 3 допустим закрылось окно и открылась 2-я форма.
Вот собственно весь код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    editLogin: TEdit;
    edittPass: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Login,Password:string;
  f:TextFile; //текстовая переменная
implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if (editLogin.text <> Login)or (editPass.Text <> Password) then
Label3.Caption:='Успешно!';
end;



end.

И еще два дополнительных вопроса:
1. Как выставить автоматически Label, Edit или другой компонент по центру формы.
2. Как сделать чтобы в EditPass у меня не было видно символов пароля, а было ******.

[Aleksander550]

Для отображения звёздочек, можешь использовать обычный Edit, измени свойство PasswordChar на *.

Чтобы вызвать задержку в появлении второй формы используй Sleep(5000)

procedure TForm1.Button1Click(Sender: TObject);
Var
 password:string;
 login:string;
begin
 password:='МоЙ ПароЛЬ123!!!';
 login:='admin';
 if (Edit1.Text=password) and (Edit2.text=login) then
 begin
   ShowMessage('Здравствуйте Admin');
   Sleep(5000);
   Form2.ShowModal;
 end
 else showmessage('нет такого пользователя или пароля');
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[FranCOder]

Странно, но почему-то не хочет входить.

[FranCOder]

:D Сделал, просто edti1 был логин, а вы в коде написали, что он edit2.
Теперь такая проблема, ввожу правильные данные и он через заданное кол-во времени выводит и надпись "Здравствуйте Admin" и 2-ю форму одновременно.

[FranCOder]

Ну так что?

[Streletz]

ShowMessage('Здравствуйте Admin');

Сообщение Windows можно попробовать заменить своей формой и перенести

Sleep(5000);

в её обработчик события OnShow.

Sleep(5000);
Self.Close;