[DOS]

Hola a todos, de nuevo preguntando por aqui.
Tengo que hacer este ejercicio, crear una tabla en paradox, con nro, clave y usuario. El sistema me debe permitir cargar usuario, contraseña o clave, ingresar una nueva clave y confirmarla, si hay algun error enviar un mensaje sino modificar la clave de la tabla.
Mis conocimientos son basicos, y el codigo que les muestro, tambien lo es, se muy bien que debe haber mejores formas y comandos para hacer lo que necesito, pero quien me pueda ayudar, le pediria que se mantenga dentro de esos parametros, para poder yo entenderlo, gracias.

Código Delphi [-]
procedure TForm3.Button2Click(Sender: TObject);
var
    apellido, contrasena, newclave, clavebis: String;
   
begin
    apellido := Edit1.Text;    // apellido
    contrasena := Edit2.Text;  // clave antigua
    newclave:= Edit3.Text;     // nueva clave
    clavebis:= Edit4.text;  //  repite nueva clave
    
    edit1.Clear;                 //  limpio los edit
    edit2.Clear;
    edit3.Clear;
    edit4.Clear;
    Table1.First;
    edit1.SetFocus;       // lo focaliso en el primer edit
    
    while Table1.eof = false do     //  corro la tabla
    begin             //comparo el apellido y la clave
        if (Table1.FieldByName('Apellido').AsString = apellido) and
           (Table1.FieldByName('Clave').AsString = contrasena) then
            if  newclave = clavebis then    //comparo las nuevas claves
                begin        //Modifico la clave
                  table1.Edit;
                  table1.FieldByName('Clave').AsString:=newclave;
                  table1.Post;
                  table1.Next;
                 end
             else
               ShowMessage('Clave o Nombre Incorrectos');
     end;

end;

end.

El programa me tira error no cuando lo compilo sino cuando lo corro.