Como Fazer Tela De Login

1ª Abra o delphi 7 ou 6

2ª Vá na Barra STANDARD e insira 2 label 2 edits e 2 buttons e1IdIPWatch1  ou bitbtn e UM novo Form

3ª configura os seguintes componentes
 IdIPWatch1
Name: IP
 Label 1 configure o caption
  Caption : Usuário
 Label 2 configure o caption
  Caption : Senha
 Edit Configure o Text (Estará la no final da propriedades)
  Text : 'Nao coloque nada'
edit 2
Text : 'nada'
PasswordChar : *

 Bitbtn1 Ou Buton
 Caption : Logar
Bitbtn 2
Caption : Cancelar


4ª agora e a parte boa do negocio hehehe clique duas vezes no BitBtn 1 (Logar)
 Coloque o seguinte comando

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
If (Edit1.text = 'Usuario_Desejado') AND (Edit2.text = 'Senha_desejada') then
Form2.Show
else
ShowMessage('Login e Senha não são Validos');
end;end;

end.
e no form 2 vai no events e clique duas vezes em cima do evento onShow

e colo que o comando
procedure TForm3.FormShow(Sender: TObject);
begin
Form1.Destroy;
end;


5ª clique duas vezes no bitbtn 2 e coloque este comando:

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
halt;
end;

end.

6ª pessoal se da esta mensagem quando vc for compilar

clique em sim e não e erro








7ª pronto compile






Obs :coloque no edit1 o seu usuário que vc  coloca no comando

if edit1.Text = 'usuario desejado' if then edit2.Text = 'Senha desejada' then ShowMessage ('Bem Vindo');

e no edit2 sua senha

exemplo:

Obs:coloque da mesma forma que vc coloco no comando que eu passei a todos ex: if edit1.text = 'Test' then if Edi2.text = 'Abc'
Onde tiver letra maiúscula vc tem que coloca também na hora do login 
 entende se não entendeu manda email
 meu email e : Dhionathans_felix@hotmail.com
 VLW