if ok then
            begin
              inc(memrec[i].pointers[length(memrec[i].pointers)-1].Address,calculate);
              if memrec[i].pointers[length(memrec[i].pointers)-1].Interpretableaddress<>'' then
                memrec[i].pointers[length(memrec[i].pointers)-1].Interpretableaddress:=symhandler.getNameFromAddress(memrec[i].pointers[length(memrec[i].pointers)-1].Address,true,true);
            end;
          end;
        end;
      end;
    end;

  updatescreen;
end;

procedure TMainForm.Button1Click(Sender: TObject);            <----------------- this is where the error points at