Criar sistema de login sem database no delphi 7

Este é mais um tutorial que fiz há algum tempo e estou postando aqui para vocês.

1º Passo:

Quote

Adicione: 2 Label;

2 EditBox;

1 Button.

2º Passo:

Quote

Clique na EditBox cuja está escrito Edit1, no object inspector procure por Text e apague o text.

Faça o mesmo na Edit2.

3º Passo:

Quote

Altere a caption das labels 1 e 2 respectivamente para: Login, Senha.

4º Passo:

Quote

Altere a caption do Button1 a seu gosto, como por exemplo: "Ok", "Entrar", "Acessar".

5º Passo:

Quote

De dois cliques no Button e adicione entre begin e end:

if Edit1.text = 'admin' then

begin if Edit2.text = '1234' then

begin

MessageBoxA(handle, 'Login Realizado com Sucesso!', 'LOGIN', 0);

end

else begin

MessageBoxA(handle, 'Login correto e senha incorreta!', 'LOGIN', 0);

end

end

else

begin

MessageBoxA(handle, 'Informações incorretas!', 'LOGIN', 0);

end;

6º Passo:

Quote

Compreendendo o código:

Vermelho: Login para acessar;

Laranja: Senha para acessar;

7º Passo:

Quote

Agora é só salvar e clicar f9 para testar.