Ventana de Login al correr un programa

[lucho1981]

Empezado por Caral

Hola
El exit es para salir del programa, osea si no ingresa el nombre o el usuario correctos, el programa se cerrara.
Pareciera que le falta un end, pero tambien parece que falta un pedazo de codigo.
Saludos

Si falta codigo, pero es q estoy haciendo mi propio programa, con mis pocos conocimientos.
este es mi codigo

Código Delphi [-]
begin
    if (usuario.Text='')or (Pass.Text='') then
      begin
         MessageDlg('Debes ingresar tu Nombre de usuario y contraseña 
         para continuar',mtError, [mbok], 1);
         usuario.setfocus;
      end;
     else
        DM.TUsuarios.Locate('Usuario',usuario.Text,[]);
        If (Dm.TUsuarios.fieldName('contraseña').Astring = pass.Text then

De encontrar el Usuario y q coincida con el pass q recien acceda y de ahi validare permisos y otras cosas.
Pero q pasa si el usuario no existe?
Por otro lado como puedo hacer para q un en un ComboBox me muestre la lista de los usuarios existentes?

Uso delphi 7 y mysq 5.0 conectado por odbc