[DOS]

Gracias Chris
hice un copy paste en el programa y no corria, le hice unos pequeños cambios, segun la version anterior y asi corria, si pongo la clave bien, va al sig. form pero si es incorrecta sigue constantemente dando la opcion de cargar el U y la C pero nunca muestra el cartel ni termina la aplicacion.
Disculpen muchachos si soy molesto y les agradesco nuevamente por su prontas respuestas y ayuda. /aprendi a recuadrar la sintaxis

Código SQL [-]
var
    apellido, contrasena: String; // utiliza variables más descriptivas.
                                  // Es una buena practica de programación.
    ClaveCorrecta: Boolean;       // utilizada para indicar si el usuario
     Intentos: Integer;           // utilizó un usuario y contraseña correctos.
begin
    apellido := Edit1.Text;
    contrasena := Edit2.Text;
        
    edit1.Clear;
    edit2.Clear;
    table1.First;
    edit1.SetFocus;
    
    while table1.eof = false do
    begin
        // comparar el usuario y contrasena
        if (Table1.FieldByName('Apellido').AsString = apellido) and
           (Table1.FieldByName('Clave').AsString = contrasena) then
        begin
            ClaveCorrecta := True;
            Form1.Hide;
            Form2.Show;
        end;
        
        // compararemos con el siguiente registro en la DB
          table1.Next;
    end;    
    
    // no se utilizó un usuario y contraseña correcta?
    if not ClaveCorrecta then
    begin
        ShowMessage('Clave Incorrecta');
        // aumentamos el número de intentos
        Inc(Intentos); // Inc(Intentos) = Intentos := Intentos + 1;
        
        // ya hizo los 4 intentos?
        if Intentos >= 4 then
        begin
            ShowMessage('Adios!');
            Application.Terminate; // cierra la aplicación
        end;
    end;
end;

.