Sistema de Login em Delphi

Este Tutorial Insina Como Criar um Sistema de Login simples em Delphi

Insira no Form: 2 Labels, 2 Edits e 1 Button

Caption do Label1 = “Usuário: ” (sem as aspas)
Caption do Label2 = “Senha: ” (sem as aspas)
Caption do Button1 = “Okay” (sem as aspas)
Text dos 2 Edits = “”(sem as aspas)

Clique duas vezes no Button1(OKay) e coloque o código:

// Se os campos estiverem em branco, mostra o erro…
if (Edit1.text = '')and(Edit2.text ='') then
begin
Application.MessageBox('Preencha os campos de maneira adequada, por favor.','Erro!',MB_ICONError);
Edit1.Clear;
Edit2.Clear;
Edit1.Setfocus;
end;
// Se os campos não estiverem em branco, Continua com a verificação...
if (Edit1.text <> '')and(Edit2.text <> '') then
begin
// Verifica se o campo usuário estiver com o valor: gabriel e o campo senha: 123…
// Se estiver tudo correto abre o Form2
if (Edit1.text = 'gabriel')and(Edit2.text = '123') then
begin
Form2 := Tform2.create(application);
Hide;
Form2.showmodal;
end;
// Se tiver algum problema na verificação, mostra uma mensagem e limpa os campos...
if (Edit1.Text <> 'gabriel')or(Edit2.text = '123') then
begin
Application.MessageBox('Sua senha esta incorreta!','Erro!',MB_ICONError);
Edit1.Clear;
Edit2.Clear;
Edit1.Setfocus;
end;
end;

Depois, Crie um Novo Form e vá no Evento OnClose deste form e Adicione:

Halt;