[[Caral]]

Hola
Veamos algunas cosas:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 var
 a,b: string;
 c:integer;
 begin
 a:=edit1.text;
 b:=edit2.Text;
 // table1.First; (para que?
//  edit1.SetFocus; (para que ? 
 c:=1;
 // while table1.Eof = false do (para que ?
 //begin
 while c < 4 do
 begin //va a comparar en una tabla el apellido y la clave
 edit1.Clear;
 edit2.Clear;
 edit1.SetFocus;
 // table1.Next;
 if (table1.FieldByName('Apellido').AsString = a) and (table1.fieldbyname('Clave').Asstring = b)
 then
 begin //si la clave es correcta va al formulario 2
 form1.Hide; // no lo creo ?
 form2.show;
 // table1.Next; (para que?
 c:=4;
 end
 else
 begin //si es incorrecta muestra un mensaje de error
 showmessage('Clave incorrecta');
 end;
 c:=c+1; //incrementa en 1 al contador
 end;

 end;
 showmessage('adios'); // a los tres intentos fallidos muestra un mensaje y sale
 end;

Que BD usas ?.
Saludos