Criar um programa, tipo tela de login

[jow zacarias]

queria fazer um programa tipo uma tela de login, de tela cheia que nao feche, só que no lugar de login e senha, queria colocar só a senha, tipo o programa só vai fechar se a pessoa colocar o nome certo,

ajuda com os programas tambem, heheh

eu tenho:

delphi 7

adobe dreamweaver Cs5

e o visualg

...

obg

[lim.mil]

Bem, não sei se será útil, mas tenho alguns prontos aqui no visualg, seguem abaixo:

1°

var

login, login_cad : caractere

senha, senha_cad : inteiro

inicio

login_cad := "admin"

senha_cad := 123

repita

escreva ("Digite seu login: ")

leia (login)

escreva ("Digite sua senha: ")

leia (senha)

escreval

ate (login=login_cad) e (senha=senha_cad)

2°

escreva ("Digite seu login: ")

leia (login1)

escreva ("Digite sua senha: ")

leia (senha1)

limpatela

escreva ("##### Verificando Login e Senha #####")

timer 550

escreva(" . ")

escreva(" . ")

escreva(" . ")

escreva(" . ")

escreval(".")

timer 0

enquanto (login1 <> "admin" ) ou (senha1 <> "123") faca

escreva ("Cliente inválido")

escreval

escreva ("Entre com um Login e Senha corretos")

escreval

escreva ("Digite seu login: ")

leia (login1)

escreva ("Digite sua senha: ")

leia (senha1)

fimenquanto

.

Abraços